Advertisement
Guest User

Untitled

a guest
May 8th, 2019
56
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 1.70 KB | None | 0 0
  1. This is SBCL 1.4.14-2.fc30, an implementation of ANSI Common Lisp.
  2. More information about SBCL is available at <http://www.sbcl.org/>.
  3.  
  4. SBCL is free software, provided as is, with absolutely no warranty.
  5. It is mostly in the public domain; some portions are provided under
  6. BSD-style licenses.  See the CREDITS and COPYING files in the
  7. distribution for more information.
  8. (declaim (sb-ext:muffle-conditions cl:warning))
  9. ((#<SB-KERNEL::CONDITION-CLASSOID WARNING> . MUFFLE-WARNING))
  10. *
  11. (defun fix-field (&key field-id field-name required data-type) t)
  12. FIX-FIELD
  13. (defun fix-message (&rest fix-fields &key version message-type-name) t)
  14. FIX-MESSAGE
  15. *
  16. (fix-message :version "4.2" :message-type-name "Logon"
  17.      (fix-field :field-id 98 :field-name "EncryptMethod" :required t :data-type 'integer)
  18.      (fix-field :field-id 108 :field-name "HearBtInt" :required t :data-type 'integer)
  19.      (fix-field :field-id 95 :field-name "RawDataLength" :required t :data-type 'integer)
  20.      (fix-field :field-id 96 :field-name "RawData" :required t :data-type 'string)
  21.      (fix-field :field-id 141 :field-name "ResetSeqNumFlag" :required nil :data-type 'boolean)
  22.      )
  23.  
  24. debugger invoked on a SB-INT:SIMPLE-PROGRAM-ERROR in thread
  25. #<THREAD "main thread" RUNNING {10005205B3}>:
  26.   odd number of &KEY arguments
  27.  
  28. Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL.
  29.  
  30. restarts (invokable by number or by possibly-abbreviated name):
  31.   0: [ABORT] Exit debugger, returning to top level.
  32.  
  33. (FIX-MESSAGE :VERSION "4.2" :MESSAGE-TYPE-NAME "Logon" T T T T T) [more]
  34.    source: (SB-INT:NAMED-LAMBDA FIX-MESSAGE
  35.                (&REST FIX-FIELDS &KEY VERSION MESSAGE-TYPE-NAME)
  36.              (BLOCK FIX-MESSAGE T))
  37. 0]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement