Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- This is SBCL 1.4.14-2.fc30, an implementation of ANSI Common Lisp.
- More information about SBCL is available at <http://www.sbcl.org/>.
- SBCL is free software, provided as is, with absolutely no warranty.
- It is mostly in the public domain; some portions are provided under
- BSD-style licenses. See the CREDITS and COPYING files in the
- distribution for more information.
- (declaim (sb-ext:muffle-conditions cl:warning))
- ((#<SB-KERNEL::CONDITION-CLASSOID WARNING> . MUFFLE-WARNING))
- *
- (defun fix-field (&key field-id field-name required data-type) t)
- FIX-FIELD
- (defun fix-message (&rest fix-fields &key version message-type-name) t)
- FIX-MESSAGE
- *
- (fix-message :version "4.2" :message-type-name "Logon"
- (fix-field :field-id 98 :field-name "EncryptMethod" :required t :data-type 'integer)
- (fix-field :field-id 108 :field-name "HearBtInt" :required t :data-type 'integer)
- (fix-field :field-id 95 :field-name "RawDataLength" :required t :data-type 'integer)
- (fix-field :field-id 96 :field-name "RawData" :required t :data-type 'string)
- (fix-field :field-id 141 :field-name "ResetSeqNumFlag" :required nil :data-type 'boolean)
- )
- debugger invoked on a SB-INT:SIMPLE-PROGRAM-ERROR in thread
- #<THREAD "main thread" RUNNING {10005205B3}>:
- odd number of &KEY arguments
- Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL.
- restarts (invokable by number or by possibly-abbreviated name):
- 0: [ABORT] Exit debugger, returning to top level.
- (FIX-MESSAGE :VERSION "4.2" :MESSAGE-TYPE-NAME "Logon" T T T T T) [more]
- source: (SB-INT:NAMED-LAMBDA FIX-MESSAGE
- (&REST FIX-FIELDS &KEY VERSION MESSAGE-TYPE-NAME)
- (BLOCK FIX-MESSAGE T))
- 0]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement