API tools faq
paste
Guest User

Untitled

a guest
Feb 13th, 2018
135
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.09 MB | None | 0 0
raw download clone embed print report
  1. 0 (UNIVERSAL-ERROR-HANDLER NIL CORE::SIMPLE-CONTROL-ERROR (:FORMAT-CONTROL "Restart ~S is not active." :FORMAT-ARGUMENTS (CLEAVIR-CST-TO-AST:CONSIDER-SPECIAL)))
  2. 1 (ERROR CORE::SIMPLE-CONTROL-ERROR :FORMAT-CONTROL "Restart ~S is not active." :FORMAT-ARGUMENTS (CLEAVIR-CST-TO-AST:CONSIDER-SPECIAL))
  3. 2 (APPLY #<COMPILED-CLOSURE@0x10a805708 ERROR :ftype :FUNCTION lambda-list: (DATUM &REST ARGUMENTS) :fptr 0x10b5dd6e0> CORE::SIMPLE-CONTROL-ERROR :FORMAT-CONTROL "Restart ~S is not active." :FORMAT-ARGUMENTS (CLEAVIR-CST-TO-AST:CONSIDER-SPECIAL) NIL)
  4. 3 (SIGNAL-SIMPLE-ERROR CONTROL-ERROR NIL "Restart ~S is not active." (CLEAVIR-CST-TO-AST:CONSIDER-SPECIAL))
  5. 4 (FIND-RESTART-NEVER-FAIL CLEAVIR-CST-TO-AST:CONSIDER-SPECIAL)
  6. 5 (INVOKE-RESTART CLEAVIR-CST-TO-AST:CONSIDER-SPECIAL)
  7. 6 (FUNCALL #<COMPILED-CLOSURE@0x1180f0d28 LAMBDA :ftype :FUNCTION lambda-list: (CONDITION) :fptr 0x11368f7e0> #<CLEAVIR-ENVIRONMENT:NO-VARIABLE-INFO>)
  8. 7 (SIGNAL #<CLEAVIR-ENVIRONMENT:NO-VARIABLE-INFO>)
  9. 8 (UNIVERSAL-ERROR-HANDLER NIL #<CLEAVIR-ENVIRONMENT:NO-VARIABLE-INFO> NIL)
  10. 9 (ERROR #<CLEAVIR-ENVIRONMENT:NO-VARIABLE-INFO>)
  11. 10 (CONVERT-ELEMENTARY-SETQ #<ATOM-CST raw: CORE::*ARG-CHECK*> #<CONS-CST raw: (CONS (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  12. 11 ({CONVERT-SPECIAL (((EQL (QUOTE SETQ)) T T T))} #<VA-LIST: (SETQ #<CONS-CST raw: (SETQ CORE::*ARG-CHECK* (CONS (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  13. 12 (FUNCALL #<COMPILED-CLOSURE@0x1103d2708 (METHOD CONVERT-SPECIAL ((EQL (QUOTE SETQ)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x1107545c0> #<VA-LIST: (SETQ #<CONS-CST raw: (SETQ CORE::*ARG-CHECK* (CONS (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  14. 13 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (SETQ #<CONS-CST raw: (SETQ CORE::*ARG-CHECK* (CONS (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1103d2708 (METHOD CONVERT-SPECIAL ((EQL (QUOTE SETQ)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x1107545c0>))
  15. 14 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318 (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (SETQ #<CONS-CST raw: (SETQ CORE::*ARG-CHECK* (CONS (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1103d2708 (METHOD CONVERT-SPECIAL ((EQL (QUOTE SETQ)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x1107545c0>))
  16. 15 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (SETQ #<CONS-CST raw: (SETQ CORE::*ARG-CHECK* (CONS (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  17. 16 CONVERT-SPECIAL
  18. 17 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: (SETQ CORE::*ARG-CHECK* (CONS (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*))> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  19. 18 CONVERT-CST
  20. 19 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (SETQ CORE::*ARG-CHECK* (CONS (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  21. 20 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (SETQ CORE::*ARG-CHECK* (CONS (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  22. 21 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (SETQ CORE::*ARG-CHECK* (CONS (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  23. 22 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8 (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (SETQ CORE::*ARG-CHECK* (CONS (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  24. 23 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (SETQ CORE::*ARG-CHECK* (CONS (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  25. 24 CONVERT
  26. 25 ({CONVERT-CST ((T GLOBAL-MACRO-INFO T T))} #<CONS-CST raw: (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)> #<CLEAVIR-ENVIRONMENT:GLOBAL-MACRO-INFO> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  27. 26 CONVERT-CST
  28. 27 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  29. 28 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  30. 29 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  31. 30 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8 (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  32. 31 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  33. 32 CONVERT
  34. 33 ({CONVERT-SPECIAL (((EQL (QUOTE IF)) T T T))} #<VA-LIST: (IF #<CONS-CST raw: (IF CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*) (IF (NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*) NIL))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  35. 34 (FUNCALL #<COMPILED-CLOSURE@0x110237698 (METHOD CONVERT-SPECIAL ((EQL (QUOTE IF)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5b05c0> #<VA-LIST: (IF #<CONS-CST raw: (IF CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*) (IF (NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*) NIL))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  36. 35 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (IF #<CONS-CST raw: (IF CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*) (IF (NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*) NIL))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x110237698 (METHOD CONVERT-SPECIAL ((EQL (QUOTE IF)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5b05c0>))
  37. 36 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318 (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (IF #<CONS-CST raw: (IF CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*) (IF (NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*) NIL))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x110237698 (METHOD CONVERT-SPECIAL ((EQL (QUOTE IF)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5b05c0>))
  38. 37 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (IF #<CONS-CST raw: (IF CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*) (IF (NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*) NIL))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  39. 38 CONVERT-SPECIAL
  40. 39 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: (IF CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*) (IF (NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*) NIL))> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  41. 40 CONVERT-CST
  42. 41 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (IF CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*) (IF (NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*) NIL))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  43. 42 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (IF CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*) (IF (NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*) NIL))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  44. 43 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (IF CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*) (IF (NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*) NIL))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  45. 44 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8 (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (IF CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*) (IF (NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*) NIL))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  46. 45 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (IF CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*) (IF (NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*) NIL))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  47. 46 CONVERT
  48. 47 ({CONVERT-CST ((T GLOBAL-MACRO-INFO T T))} #<CONS-CST raw: (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*)))> #<CLEAVIR-ENVIRONMENT:GLOBAL-MACRO-INFO> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  49. 48 CONVERT-CST
  50. 49 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*)))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  51. 50 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*)))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  52. 51 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*)))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  53. 52 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8 (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*)))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  54. 53 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*)))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  55. 54 CONVERT
  56. 55 (CONVERT-SEQUENCE #<CONS-CST raw: ((CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  57. 56 ({CONVERT-SPECIAL (((EQL (QUOTE LOCALLY)) T T T))} #<VA-LIST: (LOCALLY #<CONS-CST raw: (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  58. 57 (FUNCALL #<COMPILED-CLOSURE@0x11022ff58 (METHOD CONVERT-SPECIAL ((EQL (QUOTE LOCALLY)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x1107645c0> #<VA-LIST: (LOCALLY #<CONS-CST raw: (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  59. 58 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (LOCALLY #<CONS-CST raw: (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x11022ff58 (METHOD CONVERT-SPECIAL ((EQL (QUOTE LOCALLY)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x1107645c0>))
  60. 59 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318 (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (LOCALLY #<CONS-CST raw: (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x11022ff58 (METHOD CONVERT-SPECIAL ((EQL (QUOTE LOCALLY)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x1107645c0>))
  61. 60 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (LOCALLY #<CONS-CST raw: (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  62. 61 CONVERT-SPECIAL
  63. 62 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  64. 63 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  65. 64 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  66. 65 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  67. 66 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8 (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  68. 67 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  69. 68 CONVERT
  70. 69 (CONVERT-SEQUENCE #<CONS-CST raw: ((LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  71. 70 ({CONVERT-SPECIAL (((EQL (QUOTE PROGN)) T T T))} #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  72. 71 (FUNCALL #<COMPILED-CLOSURE@0x1106119a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0> #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  73. 72 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1106119a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0>))
  74. 73 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318 (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1106119a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0>))
  75. 74 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  76. 75 CONVERT-SPECIAL
  77. 76 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: (PROGN (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  78. 77 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (PROGN (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  79. 78 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (PROGN (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  80. 79 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (PROGN (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  81. 80 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8 (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (PROGN (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  82. 81 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (PROGN (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  83. 82 CONVERT
  84. 83 (CONVERT-BODY #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  85. 84 ({PROCESS-PARAMETER-GROUPS ((NULL T T T T))} #<VA-LIST: (NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  86. 85 PROCESS-PARAMETER-GROUPS
  87. 86 ({PROCESS-PARAMETERS-IN-GROUP ((NULL T T T T T T))} #<VA-LIST: (NIL NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  88. 87 PROCESS-PARAMETERS-IN-GROUP
  89. 88 ({PROCESS-PARAMETER ((SIMPLE-VARIABLE T T T T T T T T))} #<VA-LIST: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE> NIL NIL NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  90. 89 PROCESS-PARAMETER
  91. 90 ({PROCESS-PARAMETERS-IN-GROUP ((CONS T T T T T T))} #<VA-LIST: ((#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>) NIL (NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  92. 91 PROCESS-PARAMETERS-IN-GROUP
  93. 92 ({PROCESS-PARAMETER-GROUP ((MULTI-PARAMETER-GROUP-MIXIN T T T T T T))} #<VA-LIST: (#<ORDINARY-REQUIRED-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>)> NIL (NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  94. 93 PROCESS-PARAMETER-GROUP
  95. 94 ({PROCESS-PARAMETER-GROUPS ((CONS T T T T))} #<VA-LIST: ((#<ORDINARY-REQUIRED-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>)>) ((NIL)) #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  96. 95 PROCESS-PARAMETER-GROUPS
  97. 96 ({CONVERT-CODE ((T T T T))} #<VA-LIST: (#<CONS-CST raw: (CORE::ALL-KEYWORDS)> #<CONS-CST raw: ((LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  98. 97 (FUNCALL #<COMPILED-CLOSURE@0x10c6aeb68 (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440> #<VA-LIST: (#<CONS-CST raw: (CORE::ALL-KEYWORDS)> #<CONS-CST raw: ((LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  99. 98 ({CONVERT-CODE ((T T T CLASP))} #<VA-LIST: (#<CONS-CST raw: (CORE::ALL-KEYWORDS)> #<CONS-CST raw: ((LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c6aeb68 (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440>))
  100. 99 (FUNCALL #<COMPILED-CLOSURE@0x10c71d8c8 (METHOD CONVERT-CODE (T T T CLASP)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x112ea9440> #<VA-LIST: (#<CONS-CST raw: (CORE::ALL-KEYWORDS)> #<CONS-CST raw: ((LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c6aeb68 (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440>))
  101. 100 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (CORE::ALL-KEYWORDS)> #<CONS-CST raw: ((LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  102. 101 CONVERT-CODE
  103. 102 ({CONVERT-LAMBDA-CALL ((T T T))} #<CONS-CST raw: ((LAMBDA (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)) (NIL))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  104. 103 CONVERT-LAMBDA-CALL
  105. 104 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)) (NIL))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  106. 105 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)) (NIL))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  107. 106 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)) (NIL))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  108. 107 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8 (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)) (NIL))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  109. 108 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)) (NIL))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  110. 109 CONVERT
  111. 110 ({CONVERT-LET ((T T T))} #<CONS-CST raw: (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  112. 111 CONVERT-LET
  113. 112 ({CONVERT-SPECIAL (((EQL (QUOTE LET)) T T T))} #<VA-LIST: (LET #<CONS-CST raw: (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  114. 113 (FUNCALL #<COMPILED-CLOSURE@0x1104eb2a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0> #<VA-LIST: (LET #<CONS-CST raw: (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  115. 114 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (LET #<CONS-CST raw: (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1104eb2a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0>))
  116. 115 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318 (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (LET #<CONS-CST raw: (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1104eb2a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0>))
  117. 116 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (LET #<CONS-CST raw: (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  118. 117 CONVERT-SPECIAL
  119. 118 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  120. 119 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  121. 120 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  122. 121 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  123. 122 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8 (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  124. 123 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  125. 124 CONVERT
  126. 125 (CONVERT-SEQUENCE #<CONS-CST raw: ((LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  127. 126 ({CONVERT-SPECIAL (((EQL (QUOTE PROGN)) T T T))} #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  128. 127 (FUNCALL #<COMPILED-CLOSURE@0x1106119a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0> #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  129. 128 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1106119a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0>))
  130. 129 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318 (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1106119a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0>))
  131. 130 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  132. 131 CONVERT-SPECIAL
  133. 132 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: (PROGN (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  134. 133 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (PROGN (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  135. 134 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (PROGN (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  136. 135 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (PROGN (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  137. 136 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8 (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (PROGN (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  138. 137 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (PROGN (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  139. 138 CONVERT
  140. 139 (CONVERT-BODY #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  141. 140 ({PROCESS-PARAMETER-GROUPS ((NULL T T T T))} #<VA-LIST: (NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  142. 141 PROCESS-PARAMETER-GROUPS
  143. 142 ({PROCESS-PARAMETERS-IN-GROUP ((NULL T T T T T T))} #<VA-LIST: (NIL NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  144. 143 PROCESS-PARAMETERS-IN-GROUP
  145. 144 ({PROCESS-PARAMETER ((SIMPLE-VARIABLE T T T T T T T T))} #<VA-LIST: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE> NIL NIL NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  146. 145 PROCESS-PARAMETER
  147. 146 ({PROCESS-PARAMETERS-IN-GROUP ((CONS T T T T T T))} #<VA-LIST: ((#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>) NIL (NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  148. 147 PROCESS-PARAMETERS-IN-GROUP
  149. 148 ({PROCESS-PARAMETER-GROUP ((MULTI-PARAMETER-GROUP-MIXIN T T T T T T))} #<VA-LIST: (#<ORDINARY-REQUIRED-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>)> NIL (NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  150. 149 PROCESS-PARAMETER-GROUP
  151. 150 ({PROCESS-PARAMETER-GROUPS ((CONS T T T T))} #<VA-LIST: ((#<ORDINARY-REQUIRED-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>)>) ((NIL)) #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  152. 151 PROCESS-PARAMETER-GROUPS
  153. 152 ({CONVERT-CODE ((T T T T))} #<VA-LIST: (#<CONS-CST raw: (CORE::PPN)> #<CONS-CST raw: ((LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  154. 153 (FUNCALL #<COMPILED-CLOSURE@0x10c6aeb68 (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440> #<VA-LIST: (#<CONS-CST raw: (CORE::PPN)> #<CONS-CST raw: ((LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  155. 154 ({CONVERT-CODE ((T T T CLASP))} #<VA-LIST: (#<CONS-CST raw: (CORE::PPN)> #<CONS-CST raw: ((LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c6aeb68 (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440>))
  156. 155 (FUNCALL #<COMPILED-CLOSURE@0x10c71d8c8 (METHOD CONVERT-CODE (T T T CLASP)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x112ea9440> #<VA-LIST: (#<CONS-CST raw: (CORE::PPN)> #<CONS-CST raw: ((LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c6aeb68 (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440>))
  157. 156 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (CORE::PPN)> #<CONS-CST raw: ((LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  158. 157 CONVERT-CODE
  159. 158 ({CONVERT-LAMBDA-CALL ((T T T))} #<CONS-CST raw: ((LAMBDA (CORE::PPN) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) ((+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  160. 159 CONVERT-LAMBDA-CALL
  161. 160 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::PPN) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) ((+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  162. 161 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::PPN) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) ((+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  163. 162 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::PPN) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) ((+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  164. 163 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8 (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::PPN) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) ((+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  165. 164 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::PPN) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) ((+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  166. 165 CONVERT
  167. 166 ({CONVERT-LET ((T T T))} #<CONS-CST raw: (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  168. 167 CONVERT-LET
  169. 168 ({CONVERT-SPECIAL (((EQL (QUOTE LET)) T T T))} #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  170. 169 (FUNCALL #<COMPILED-CLOSURE@0x1104eb2a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0> #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  171. 170 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1104eb2a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0>))
  172. 171 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318 (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1104eb2a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0>))
  173. 172 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  174. 173 CONVERT-SPECIAL
  175. 174 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  176. 175 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  177. 176 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  178. 177 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  179. 178 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8 (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  180. 179 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  181. 180 CONVERT
  182. 181 (CONVERT-SEQUENCE #<CONS-CST raw: ((LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  183. 182 ({CONVERT-SPECIAL (((EQL (QUOTE PROGN)) T T T))} #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  184. 183 (FUNCALL #<COMPILED-CLOSURE@0x1106119a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0> #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  185. 184 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1106119a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0>))
  186. 185 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318 (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1106119a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0>))
  187. 186 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  188. 187 CONVERT-SPECIAL
  189. 188 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: (PROGN (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  190. 189 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  191. 190 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  192. 191 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  193. 192 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8 (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  194. 193 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  195. 194 CONVERT
  196. 195 (CONVERT-BODY #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  197. 196 ({PROCESS-PARAMETER-GROUPS ((NULL T T T T))} #<VA-LIST: (NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  198. 197 PROCESS-PARAMETER-GROUPS
  199. 198 ({PROCESS-PARAMETERS-IN-GROUP ((NULL T T T T T T))} #<VA-LIST: (NIL NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  200. 199 PROCESS-PARAMETERS-IN-GROUP
  201. 200 ({PROCESS-PARAMETER ((SIMPLE-VARIABLE T T T T T T T T))} #<VA-LIST: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE> NIL NIL NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  202. 201 PROCESS-PARAMETER
  203. 202 ({PROCESS-PARAMETERS-IN-GROUP ((CONS T T T T T T))} #<VA-LIST: ((#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>) NIL (NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  204. 203 PROCESS-PARAMETERS-IN-GROUP
  205. 204 ({PROCESS-PARAMETER-GROUP ((MULTI-PARAMETER-GROUP-MIXIN T T T T T T))} #<VA-LIST: (#<ORDINARY-REQUIRED-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>)> NIL (NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  206. 205 PROCESS-PARAMETER-GROUP
  207. 206 ({PROCESS-PARAMETER-GROUPS ((CONS T T T T))} #<VA-LIST: ((#<ORDINARY-REQUIRED-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>)>) ((NIL)) #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  208. 207 PROCESS-PARAMETER-GROUPS
  209. 208 ({CONVERT-CODE ((T T T T))} #<VA-LIST: (#<CONS-CST raw: (CORE::NO-CHECK)> #<CONS-CST raw: ((LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  210. 209 (FUNCALL #<COMPILED-CLOSURE@0x10c6aeb68 (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440> #<VA-LIST: (#<CONS-CST raw: (CORE::NO-CHECK)> #<CONS-CST raw: ((LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  211. 210 ({CONVERT-CODE ((T T T CLASP))} #<VA-LIST: (#<CONS-CST raw: (CORE::NO-CHECK)> #<CONS-CST raw: ((LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c6aeb68 (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440>))
  212. 211 (FUNCALL #<COMPILED-CLOSURE@0x10c71d8c8 (METHOD CONVERT-CODE (T T T CLASP)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x112ea9440> #<VA-LIST: (#<CONS-CST raw: (CORE::NO-CHECK)> #<CONS-CST raw: ((LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c6aeb68 (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440>))
  213. 212 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (CORE::NO-CHECK)> #<CONS-CST raw: ((LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  214. 213 CONVERT-CODE
  215. 214 ({CONVERT-LAMBDA-CALL ((T T T))} #<CONS-CST raw: ((LAMBDA (CORE::NO-CHECK) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))) (NIL))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  216. 215 CONVERT-LAMBDA-CALL
  217. 216 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::NO-CHECK) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))) (NIL))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  218. 217 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::NO-CHECK) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))) (NIL))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  219. 218 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::NO-CHECK) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))) (NIL))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  220. 219 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8 (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::NO-CHECK) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))) (NIL))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  221. 220 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::NO-CHECK) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))) (NIL))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  222. 221 CONVERT
  223. 222 ({CONVERT-LET ((T T T))} #<CONS-CST raw: (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  224. 223 CONVERT-LET
  225. 224 ({CONVERT-SPECIAL (((EQL (QUOTE LET)) T T T))} #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  226. 225 (FUNCALL #<COMPILED-CLOSURE@0x1104eb2a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0> #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  227. 226 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1104eb2a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0>))
  228. 227 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318 (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1104eb2a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0>))
  229. 228 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  230. 229 CONVERT-SPECIAL
  231. 230 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  232. 231 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  233. 232 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  234. 233 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  235. 234 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8 (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  236. 235 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  237. 236 CONVERT
  238. 237 (CONVERT-SEQUENCE #<CONS-CST raw: ((LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  239. 238 ({CONVERT-SPECIAL (((EQL (QUOTE PROGN)) T T T))} #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  240. 239 (FUNCALL #<COMPILED-CLOSURE@0x1106119a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0> #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  241. 240 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1106119a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0>))
  242. 241 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318 (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1106119a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0>))
  243. 242 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  244. 243 CONVERT-SPECIAL
  245. 244 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: (PROGN (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  246. 245 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  247. 246 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  248. 247 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  249. 248 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8 (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  250. 249 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  251. 250 CONVERT
  252. 251 (CONVERT-BODY #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  253. 252 ({PROCESS-PARAMETER-GROUPS ((NULL T T T T))} #<VA-LIST: (NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  254. 253 PROCESS-PARAMETER-GROUPS
  255. 254 ({PROCESS-PARAMETERS-IN-GROUP ((NULL T T T T T T))} #<VA-LIST: (NIL NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  256. 255 PROCESS-PARAMETERS-IN-GROUP
  257. 256 ({PROCESS-PARAMETER ((SIMPLE-VARIABLE T T T T T T T T))} #<VA-LIST: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE> NIL NIL NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  258. 257 PROCESS-PARAMETER
  259. 258 ({PROCESS-PARAMETERS-IN-GROUP ((CONS T T T T T T))} #<VA-LIST: ((#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>) NIL (NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  260. 259 PROCESS-PARAMETERS-IN-GROUP
  261. 260 ({PROCESS-PARAMETER-GROUP ((MULTI-PARAMETER-GROUP-MIXIN T T T T T T))} #<VA-LIST: (#<ORDINARY-REQUIRED-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>)> NIL (NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  262. 261 PROCESS-PARAMETER-GROUP
  263. 262 ({PROCESS-PARAMETER-GROUPS ((CONS T T T T))} #<VA-LIST: ((#<ORDINARY-REQUIRED-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>)>) ((NIL)) #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  264. 263 PROCESS-PARAMETER-GROUPS
  265. 264 ({CONVERT-CODE ((T T T T))} #<VA-LIST: (#<CONS-CST raw: (CORE::UNSAFE-POP)> #<CONS-CST raw: ((LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  266. 265 (FUNCALL #<COMPILED-CLOSURE@0x10c6aeb68 (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440> #<VA-LIST: (#<CONS-CST raw: (CORE::UNSAFE-POP)> #<CONS-CST raw: ((LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  267. 266 ({CONVERT-CODE ((T T T CLASP))} #<VA-LIST: (#<CONS-CST raw: (CORE::UNSAFE-POP)> #<CONS-CST raw: ((LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c6aeb68 (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440>))
  268. 267 (FUNCALL #<COMPILED-CLOSURE@0x10c71d8c8 (METHOD CONVERT-CODE (T T T CLASP)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x112ea9440> #<VA-LIST: (#<CONS-CST raw: (CORE::UNSAFE-POP)> #<CONS-CST raw: ((LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c6aeb68 (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440>))
  269. 268 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (CORE::UNSAFE-POP)> #<CONS-CST raw: ((LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  270. 269 CONVERT-CODE
  271. 270 ({CONVERT-LAMBDA-CALL ((T T T))} #<CONS-CST raw: ((LAMBDA (CORE::UNSAFE-POP) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))) ((SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  272. 271 CONVERT-LAMBDA-CALL
  273. 272 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::UNSAFE-POP) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))) ((SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  274. 273 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::UNSAFE-POP) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))) ((SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  275. 274 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::UNSAFE-POP) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))) ((SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  276. 275 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8 (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::UNSAFE-POP) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))) ((SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  277. 276 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::UNSAFE-POP) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))) ((SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  278. 277 CONVERT
  279. 278 ({CONVERT-LET ((T T T))} #<CONS-CST raw: (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  280. 279 CONVERT-LET
  281. 280 ({CONVERT-SPECIAL (((EQL (QUOTE LET)) T T T))} #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  282. 281 (FUNCALL #<COMPILED-CLOSURE@0x1104eb2a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0> #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  283. 282 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1104eb2a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0>))
  284. 283 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318 (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1104eb2a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0>))
  285. 284 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  286. 285 CONVERT-SPECIAL
  287. 286 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  288. 287 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  289. 288 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  290. 289 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  291. 290 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8 (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  292. 291 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  293. 292 CONVERT
  294. 293 (CONVERT-SEQUENCE #<CONS-CST raw: ((LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  295. 294 ({CONVERT-SPECIAL (((EQL (QUOTE PROGN)) T T T))} #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  296. 295 (FUNCALL #<COMPILED-CLOSURE@0x1106119a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0> #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  297. 296 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1106119a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0>))
  298. 297 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318 (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1106119a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0>))
  299. 298 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  300. 299 CONVERT-SPECIAL
  301. 300 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  302. 301 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  303. 302 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  304. 303 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  305. 304 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8 (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  306. 305 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  307. 306 CONVERT
  308. 307 (CONVERT-BODY #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  309. 308 ({PROCESS-PARAMETER-GROUPS ((NULL T T T T))} #<VA-LIST: (NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  310. 309 PROCESS-PARAMETER-GROUPS
  311. 310 ({PROCESS-PARAMETERS-IN-GROUP ((NULL T T T T T T))} #<VA-LIST: (NIL NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  312. 311 PROCESS-PARAMETERS-IN-GROUP
  313. 312 ({PROCESS-PARAMETER ((SIMPLE-VARIABLE T T T T T T T T))} #<VA-LIST: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE> NIL NIL NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  314. 313 PROCESS-PARAMETER
  315. 314 ({PROCESS-PARAMETERS-IN-GROUP ((CONS T T T T T T))} #<VA-LIST: ((#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>) NIL (NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  316. 315 PROCESS-PARAMETERS-IN-GROUP
  317. 316 ({PROCESS-PARAMETER-GROUP ((MULTI-PARAMETER-GROUP-MIXIN T T T T T T))} #<VA-LIST: (#<ORDINARY-REQUIRED-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>)> NIL (NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  318. 317 PROCESS-PARAMETER-GROUP
  319. 318 ({PROCESS-PARAMETER-GROUPS ((CONS T T T T))} #<VA-LIST: ((#<ORDINARY-REQUIRED-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>)>) ((NIL)) #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  320. 319 PROCESS-PARAMETER-GROUPS
  321. 320 ({CONVERT-CODE ((T T T T))} #<VA-LIST: (#<CONS-CST raw: (CORE::UNSAFE-CDR)> #<CONS-CST raw: ((LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  322. 321 (FUNCALL #<COMPILED-CLOSURE@0x10c6aeb68 (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440> #<VA-LIST: (#<CONS-CST raw: (CORE::UNSAFE-CDR)> #<CONS-CST raw: ((LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  323. 322 ({CONVERT-CODE ((T T T CLASP))} #<VA-LIST: (#<CONS-CST raw: (CORE::UNSAFE-CDR)> #<CONS-CST raw: ((LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c6aeb68 (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440>))
  324. 323 (FUNCALL #<COMPILED-CLOSURE@0x10c71d8c8 (METHOD CONVERT-CODE (T T T CLASP)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x112ea9440> #<VA-LIST: (#<CONS-CST raw: (CORE::UNSAFE-CDR)> #<CONS-CST raw: ((LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c6aeb68 (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440>))
  325. 324 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (CORE::UNSAFE-CDR)> #<CONS-CST raw: ((LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  326. 325 CONVERT-CODE
  327. 326 ({CONVERT-LAMBDA-CALL ((T T T))} #<CONS-CST raw: ((LAMBDA (CORE::UNSAFE-CDR) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))) ((SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  328. 327 CONVERT-LAMBDA-CALL
  329. 328 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::UNSAFE-CDR) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))) ((SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  330. 329 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::UNSAFE-CDR) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))) ((SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  331. 330 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::UNSAFE-CDR) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))) ((SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  332. 331 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8 (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::UNSAFE-CDR) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))) ((SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  333. 332 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::UNSAFE-CDR) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))) ((SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  334. 333 CONVERT
  335. 334 ({CONVERT-LET ((T T T))} #<CONS-CST raw: (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  336. 335 CONVERT-LET
  337. 336 ({CONVERT-SPECIAL (((EQL (QUOTE LET)) T T T))} #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  338. 337 (FUNCALL #<COMPILED-CLOSURE@0x1104eb2a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0> #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  339. 338 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1104eb2a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0>))
  340. 339 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318 (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1104eb2a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0>))
  341. 340 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  342. 341 CONVERT-SPECIAL
  343. 342 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  344. 343 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  345. 344 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  346. 345 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  347. 346 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8 (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  348. 347 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  349. 348 CONVERT
  350. 349 (CONVERT-SEQUENCE #<CONS-CST raw: ((LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  351. 350 ({CONVERT-SPECIAL (((EQL (QUOTE PROGN)) T T T))} #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  352. 351 (FUNCALL #<COMPILED-CLOSURE@0x1106119a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0> #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  353. 352 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1106119a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0>))
  354. 353 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318 (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1106119a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0>))
  355. 354 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  356. 355 CONVERT-SPECIAL
  357. 356 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  358. 357 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  359. 358 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  360. 359 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  361. 360 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8 (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  362. 361 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  363. 362 CONVERT
  364. 363 (CONVERT-BODY #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  365. 364 ({PROCESS-PARAMETER-GROUPS ((NULL T T T T))} #<VA-LIST: (NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  366. 365 PROCESS-PARAMETER-GROUPS
  367. 366 ({PROCESS-PARAMETERS-IN-GROUP ((NULL T T T T T T))} #<VA-LIST: (NIL NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  368. 367 PROCESS-PARAMETERS-IN-GROUP
  369. 368 ({PROCESS-PARAMETER ((SIMPLE-VARIABLE T T T T T T T T))} #<VA-LIST: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE> NIL NIL NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  370. 369 PROCESS-PARAMETER
  371. 370 ({PROCESS-PARAMETERS-IN-GROUP ((CONS T T T T T T))} #<VA-LIST: ((#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>) NIL (NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  372. 371 PROCESS-PARAMETERS-IN-GROUP
  373. 372 ({PROCESS-PARAMETER-GROUP ((MULTI-PARAMETER-GROUP-MIXIN T T T T T T))} #<VA-LIST: (#<ORDINARY-REQUIRED-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>)> NIL (NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  374. 373 PROCESS-PARAMETER-GROUP
  375. 374 ({PROCESS-PARAMETER-GROUPS ((CONS T T T T))} #<VA-LIST: ((#<ORDINARY-REQUIRED-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>)>) ((NIL)) #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  376. 375 PROCESS-PARAMETER-GROUPS
  377. 376 ({CONVERT-CODE ((T T T T))} #<VA-LIST: (#<CONS-CST raw: (CORE::UNSAFE-CAR)> #<CONS-CST raw: ((LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  378. 377 (FUNCALL #<COMPILED-CLOSURE@0x10c6aeb68 (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440> #<VA-LIST: (#<CONS-CST raw: (CORE::UNSAFE-CAR)> #<CONS-CST raw: ((LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  379. 378 ({CONVERT-CODE ((T T T CLASP))} #<VA-LIST: (#<CONS-CST raw: (CORE::UNSAFE-CAR)> #<CONS-CST raw: ((LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c6aeb68 (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440>))
  380. 379 (FUNCALL #<COMPILED-CLOSURE@0x10c71d8c8 (METHOD CONVERT-CODE (T T T CLASP)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x112ea9440> #<VA-LIST: (#<CONS-CST raw: (CORE::UNSAFE-CAR)> #<CONS-CST raw: ((LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c6aeb68 (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440>))
  381. 380 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (CORE::UNSAFE-CAR)> #<CONS-CST raw: ((LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  382. 381 CONVERT-CODE
  383. 382 ({CONVERT-LAMBDA-CALL ((T T T))} #<CONS-CST raw: ((LAMBDA (CORE::UNSAFE-CAR) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))) ((SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  384. 383 CONVERT-LAMBDA-CALL
  385. 384 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::UNSAFE-CAR) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))) ((SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  386. 385 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::UNSAFE-CAR) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))) ((SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  387. 386 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::UNSAFE-CAR) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))) ((SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  388. 387 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8 (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::UNSAFE-CAR) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))) ((SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  389. 388 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::UNSAFE-CAR) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))) ((SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  390. 389 CONVERT
  391. 390 ({CONVERT-LET ((T T T))} #<CONS-CST raw: (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  392. 391 CONVERT-LET
  393. 392 ({CONVERT-SPECIAL (((EQL (QUOTE LET)) T T T))} #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  394. 393 (FUNCALL #<COMPILED-CLOSURE@0x1104eb2a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0> #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  395. 394 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1104eb2a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0>))
  396. 395 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318 (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1104eb2a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0>))
  397. 396 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  398. 397 CONVERT-SPECIAL
  399. 398 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  400. 399 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  401. 400 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  402. 401 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  403. 402 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8 (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  404. 403 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  405. 404 CONVERT
  406. 405 (CONVERT-SEQUENCE #<CONS-CST raw: ((LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  407. 406 ({CONVERT-SPECIAL (((EQL (QUOTE PROGN)) T T T))} #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  408. 407 (FUNCALL #<COMPILED-CLOSURE@0x1106119a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0> #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  409. 408 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1106119a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0>))
  410. 409 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318 (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1106119a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0>))
  411. 410 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  412. 411 CONVERT-SPECIAL
  413. 412 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  414. 413 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  415. 414 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  416. 415 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  417. 416 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8 (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  418. 417 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  419. 418 CONVERT
  420. 419 (CONVERT-BODY #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  421. 420 ({PROCESS-PARAMETER-GROUPS ((NULL T T T T))} #<VA-LIST: (NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  422. 421 PROCESS-PARAMETER-GROUPS
  423. 422 ({PROCESS-PARAMETERS-IN-GROUP ((NULL T T T T T T))} #<VA-LIST: (NIL NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  424. 423 PROCESS-PARAMETERS-IN-GROUP
  425. 424 ({PROCESS-PARAMETER ((SIMPLE-VARIABLE T T T T T T T T))} #<VA-LIST: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE> NIL NIL NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  426. 425 PROCESS-PARAMETER
  427. 426 ({PROCESS-PARAMETERS-IN-GROUP ((CONS T T T T T T))} #<VA-LIST: ((#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>) NIL (NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  428. 427 PROCESS-PARAMETERS-IN-GROUP
  429. 428 ({PROCESS-PARAMETER-GROUP ((MULTI-PARAMETER-GROUP-MIXIN T T T T T T))} #<VA-LIST: (#<ORDINARY-REQUIRED-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>)> NIL (NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  430. 429 PROCESS-PARAMETER-GROUP
  431. 430 ({PROCESS-PARAMETER-GROUPS ((CONS T T T T))} #<VA-LIST: ((#<ORDINARY-REQUIRED-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>)>) ((NIL)) #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  432. 431 PROCESS-PARAMETER-GROUPS
  433. 432 ({CONVERT-CODE ((T T T T))} #<VA-LIST: (#<CONS-CST raw: (CORE::CONS-POINTER)> #<CONS-CST raw: ((LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  434. 433 (FUNCALL #<COMPILED-CLOSURE@0x10c6aeb68 (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440> #<VA-LIST: (#<CONS-CST raw: (CORE::CONS-POINTER)> #<CONS-CST raw: ((LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  435. 434 ({CONVERT-CODE ((T T T CLASP))} #<VA-LIST: (#<CONS-CST raw: (CORE::CONS-POINTER)> #<CONS-CST raw: ((LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c6aeb68 (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440>))
  436. 435 (FUNCALL #<COMPILED-CLOSURE@0x10c71d8c8 (METHOD CONVERT-CODE (T T T CLASP)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x112ea9440> #<VA-LIST: (#<CONS-CST raw: (CORE::CONS-POINTER)> #<CONS-CST raw: ((LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c6aeb68 (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440>))
  437. 436 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (CORE::CONS-POINTER)> #<CONS-CST raw: ((LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  438. 437 CONVERT-CODE
  439. 438 ({CONVERT-LAMBDA-CALL ((T T T))} #<CONS-CST raw: ((LAMBDA (CORE::CONS-POINTER) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))) ((SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  440. 439 CONVERT-LAMBDA-CALL
  441. 440 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::CONS-POINTER) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))) ((SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  442. 441 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::CONS-POINTER) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))) ((SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  443. 442 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::CONS-POINTER) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))) ((SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  444. 443 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8 (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::CONS-POINTER) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))) ((SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  445. 444 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::CONS-POINTER) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))) ((SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  446. 445 CONVERT
  447. 446 ({CONVERT-LET ((T T T))} #<CONS-CST raw: (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  448. 447 CONVERT-LET
  449. 448 ({CONVERT-SPECIAL (((EQL (QUOTE LET)) T T T))} #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  450. 449 (FUNCALL #<COMPILED-CLOSURE@0x1104eb2a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0> #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  451. 450 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1104eb2a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0>))
  452. 451 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318 (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1104eb2a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0>))
  453. 452 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  454. 453 CONVERT-SPECIAL
  455. 454 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  456. 455 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  457. 456 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  458. 457 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  459. 458 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8 (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  460. 459 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  461. 460 CONVERT
  462. 461 (CONVERT-SEQUENCE #<CONS-CST raw: ((LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  463. 462 ({CONVERT-SPECIAL (((EQL (QUOTE PROGN)) T T T))} #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  464. 463 (FUNCALL #<COMPILED-CLOSURE@0x1106119a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0> #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  465. 464 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1106119a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0>))
  466. 465 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318 (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1106119a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0>))
  467. 466 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  468. 467 CONVERT-SPECIAL
  469. 468 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: (PROGN (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))))> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  470. 469 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  471. 470 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  472. 471 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  473. 472 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8 (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  474. 473 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  475. 474 CONVERT
  476. 475 (CONVERT-BODY #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  477. 476 ({PROCESS-PARAMETER-GROUPS ((NULL T T T T))} #<VA-LIST: (NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  478. 477 PROCESS-PARAMETER-GROUPS
  479. 478 ({PROCESS-PARAMETERS-IN-GROUP ((NULL T T T T T T))} #<VA-LIST: (NIL NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  480. 479 PROCESS-PARAMETERS-IN-GROUP
  481. 480 ({PROCESS-PARAMETER ((SIMPLE-VARIABLE T T T T T T T T))} #<VA-LIST: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE> NIL NIL NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  482. 481 PROCESS-PARAMETER
  483. 482 ({PROCESS-PARAMETERS-IN-GROUP ((CONS T T T T T T))} #<VA-LIST: ((#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>) NIL (NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  484. 483 PROCESS-PARAMETERS-IN-GROUP
  485. 484 ({PROCESS-PARAMETER-GROUP ((MULTI-PARAMETER-GROUP-MIXIN T T T T T T))} #<VA-LIST: (#<ORDINARY-REQUIRED-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>)> NIL (NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  486. 485 PROCESS-PARAMETER-GROUP
  487. 486 (APPLY #<FUNCALLABLE-INSTANCE CLEAVIR-CST-TO-AST:PROCESS-PARAMETER-GROUP> #<VA-LIST: (#<ORDINARY-REQUIRED-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>)> NIL (NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)>)
  488. 487 (INVALIDATED-DISPATCH-FUNCTION #<FUNCALLABLE-INSTANCE CLEAVIR-CST-TO-AST:PROCESS-PARAMETER-GROUP> #<VA-LIST: (#<ORDINARY-REQUIRED-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>)> NIL (NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)>)
  489. 488 ({PROCESS-PARAMETER-GROUPS ((CONS T T T T))} #<VA-LIST: ((#<ORDINARY-REQUIRED-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>)>) ((NIL)) #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  490. 489 PROCESS-PARAMETER-GROUPS
  491. 490 ({CONVERT-CODE ((T T T T))} #<VA-LIST: (#<CONS-CST raw: (CORE:POINTER)> #<CONS-CST raw: ((LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))))> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  492. 491 (FUNCALL #<COMPILED-CLOSURE@0x10c6aeb68 (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440> #<VA-LIST: (#<CONS-CST raw: (CORE:POINTER)> #<CONS-CST raw: ((LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))))> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  493. 492 ({CONVERT-CODE ((T T T CLASP))} #<VA-LIST: (#<CONS-CST raw: (CORE:POINTER)> #<CONS-CST raw: ((LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))))> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c6aeb68 (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440>))
  494. 493 (FUNCALL #<COMPILED-CLOSURE@0x10c71d8c8 (METHOD CONVERT-CODE (T T T CLASP)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x112ea9440> #<VA-LIST: (#<CONS-CST raw: (CORE:POINTER)> #<CONS-CST raw: ((LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))))> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c6aeb68 (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440>))
  495. 494 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (CORE:POINTER)> #<CONS-CST raw: ((LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))))> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  496. 495 CONVERT-CODE
  497. 496 ({CONVERT-LAMBDA-CALL ((T T T))} #<CONS-CST raw: ((LAMBDA (CORE:POINTER) (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))) ((CORE::TEMPSYM)))> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  498. 497 CONVERT-LAMBDA-CALL
  499. 498 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE:POINTER) (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))) ((CORE::TEMPSYM)))> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  500. 499 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE:POINTER) (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))) ((CORE::TEMPSYM)))> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  501. 500 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE:POINTER) (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))) ((CORE::TEMPSYM)))> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  502. 501 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8 (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE:POINTER) (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))) ((CORE::TEMPSYM)))> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  503. 502 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE:POINTER) (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))) ((CORE::TEMPSYM)))> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  504. 503 CONVERT
  505. 504 ({CONVERT-LET ((T T T))} #<CONS-CST raw: (LET ((CORE:POINTER (CORE::TEMPSYM))) (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))))> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  506. 505 CONVERT-LET
  507. 506 ({CONVERT-SPECIAL (((EQL (QUOTE LET)) T T T))} #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE:POINTER (CORE::TEMPSYM))) (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))))> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  508. 507 (FUNCALL #<COMPILED-CLOSURE@0x1104eb2a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0> #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE:POINTER (CORE::TEMPSYM))) (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))))> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  509. 508 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE:POINTER (CORE::TEMPSYM))) (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))))> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1104eb2a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0>))
  510. 509 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318 (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE:POINTER (CORE::TEMPSYM))) (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))))> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1104eb2a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0>))
  511. 510 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE:POINTER (CORE::TEMPSYM))) (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))))> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  512. 511 CONVERT-SPECIAL
  513. 512 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: (LET ((CORE:POINTER (CORE::TEMPSYM))) (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))))> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  514. 513 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (LET ((CORE:POINTER (CORE::TEMPSYM))) (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))))> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  515. 514 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (LET ((CORE:POINTER (CORE::TEMPSYM))) (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))))> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  516. 515 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (LET ((CORE:POINTER (CORE::TEMPSYM))) (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))))> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  517. 516 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8 (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (LET ((CORE:POINTER (CORE::TEMPSYM))) (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))))> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  518. 517 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (LET ((CORE:POINTER (CORE::TEMPSYM))) (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))))> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  519. 518 CONVERT
  520. 519 ({CONVERT-LET* ((T T T))} #<CONS-CST raw: (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  521. 520 CONVERT-LET*
  522. 521 (APPLY #<FUNCALLABLE-INSTANCE CLEAVIR-CST-TO-AST:CONVERT-LET*> #<VA-LIST: (#<CONS-CST raw: (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)>)
  523. 522 (INVALIDATED-DISPATCH-FUNCTION #<FUNCALLABLE-INSTANCE CLEAVIR-CST-TO-AST:CONVERT-LET*> #<VA-LIST: (#<CONS-CST raw: (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)>)
  524. 523 ({CONVERT-SPECIAL (((EQL (QUOTE LET*)) T T T))} #<VA-LIST: (LET* #<CONS-CST raw: (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  525. 524 (FUNCALL #<COMPILED-CLOSURE@0x1104fcbd8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET*)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075f5a0> #<VA-LIST: (LET* #<CONS-CST raw: (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  526. 525 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (LET* #<CONS-CST raw: (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1104fcbd8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET*)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075f5a0>))
  527. 526 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318 (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (LET* #<CONS-CST raw: (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1104fcbd8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET*)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075f5a0>))
  528. 527 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (LET* #<CONS-CST raw: (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  529. 528 CONVERT-SPECIAL
  530. 529 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  531. 530 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  532. 531 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  533. 532 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  534. 533 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8 (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  535. 534 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  536. 535 CONVERT
  537. 536 (CONVERT-SEQUENCE #<CONS-CST raw: ((LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  538. 537 ({CONVERT-SPECIAL (((EQL (QUOTE PROGN)) T T T))} #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  539. 538 (FUNCALL #<COMPILED-CLOSURE@0x1106119a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0> #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  540. 539 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1106119a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0>))
  541. 540 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318 (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1106119a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0>))
  542. 541 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  543. 542 CONVERT-SPECIAL
  544. 543 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: (PROGN (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  545. 544 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (PROGN (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  546. 545 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (PROGN (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  547. 546 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (PROGN (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  548. 547 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8 (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (PROGN (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  549. 548 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (PROGN (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  550. 549 CONVERT
  551. 550 (CONVERT-BODY #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  552. 551 ({PROCESS-PARAMETER-GROUPS ((NULL T T T T))} #<VA-LIST: (NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  553. 552 PROCESS-PARAMETER-GROUPS
  554. 553 ({PROCESS-PARAMETERS-IN-GROUP ((NULL T T T T T T))} #<VA-LIST: (NIL NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  555. 554 PROCESS-PARAMETERS-IN-GROUP
  556. 555 ({PROCESS-PARAMETER ((SIMPLE-VARIABLE T T T T T T T T))} #<VA-LIST: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE> NIL NIL NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::AUXS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  557. 556 PROCESS-PARAMETER
  558. 557 ({PROCESS-PARAMETER-GROUP ((CLASP-ORDINARY-REST-PARAMETER-GROUP T T T T T CLASP))} #<VA-LIST: (#<CLASP-ORDINARY-REST-PARAMETER-GROUP parameter: #<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>> NIL (NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::AUXS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  559. 558 (FUNCALL #<COMPILED-CLOSURE@0x10c4d3ee8 (METHOD PROCESS-PARAMETER-GROUP (CLASP-ORDINARY-REST-PARAMETER-GROUP T T T T T CLASP)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x112dda530> #<VA-LIST: (#<CLASP-ORDINARY-REST-PARAMETER-GROUP parameter: #<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>> NIL (NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::AUXS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  560. 559 (PERFORM-OUTCOME #<COMPILED-CLOSURE@0x10c4d3ee8 (METHOD PROCESS-PARAMETER-GROUP (CLASP-ORDINARY-REST-PARAMETER-GROUP T T T T T CLASP)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x112dda530> (#<CLASP-ORDINARY-REST-PARAMETER-GROUP parameter: #<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>> NIL (NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::AUXS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>) #<VA-LIST: (#<CLASP-ORDINARY-REST-PARAMETER-GROUP parameter: #<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>> NIL (NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::AUXS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)>)
  561. 560 (DO-DISPATCH-MISS.MULTIPLE-VALUE-BIND.LAMBDA (#<STANDARD-METHOD PROCESS-PARAMETER-GROUP (CLASP-CLEAVIR::CLASP-ORDINARY-REST-PARAMETER-GROUP T T T T T CLASP-CLEAVIR:CLASP)> #<STANDARD-METHOD PROCESS-PARAMETER-GROUP (CONCRETE-SYNTAX-TREE:ORDINARY-REST-PARAMETER-GROUP T T T T T T)>) T)
  562. 561 (DO-DISPATCH-MISS #<FUNCALLABLE-INSTANCE CLEAVIR-CST-TO-AST:PROCESS-PARAMETER-GROUP> #<VA-LIST: (#<CLASP-ORDINARY-REST-PARAMETER-GROUP parameter: #<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>> NIL (NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::AUXS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<CLASP-ORDINARY-REST-PARAMETER-GROUP parameter: #<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>> NIL (NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::AUXS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>))
  563. 562 (LAMBDA
  564. 563 (FUNWIND-PROTECT #<COMPILED-CLOSURE@0x11123a938 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10ac8d890> #<COMPILED-CLOSURE@0x11123a8c8 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10ac8ddd0>)
  565. 564 (DISPATCH-MISS #<FUNCALLABLE-INSTANCE CLEAVIR-CST-TO-AST:PROCESS-PARAMETER-GROUP> #<VA-LIST: (#<CLASP-ORDINARY-REST-PARAMETER-GROUP parameter: #<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>> NIL (NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::AUXS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)>)
  566. 565 ({PROCESS-PARAMETER-GROUPS ((CONS T T T T))} #<VA-LIST: ((#<CLASP-ORDINARY-REST-PARAMETER-GROUP parameter: #<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>>) ((NIL)) #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::AUXS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  567. 566 PROCESS-PARAMETER-GROUPS
  568. 567 ({PROCESS-PARAMETERS-IN-GROUP ((NULL T T T T T T))} #<VA-LIST: (NIL (#<CLASP-ORDINARY-REST-PARAMETER-GROUP parameter: #<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>>) NIL ((NIL)) #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::AUXS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  569. 568 PROCESS-PARAMETERS-IN-GROUP
  570. 569 ({PROCESS-PARAMETER ((ORDINARY-OPTIONAL-PARAMETER T T T T T T T T))} #<VA-LIST: (#<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> NIL (#<CLASP-ORDINARY-REST-PARAMETER-GROUP parameter: #<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>>) NIL NIL ((NIL)) #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE:ALLOW-OTHER-KEYS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  571. 570 PROCESS-PARAMETER
  572. 571 ({PROCESS-PARAMETERS-IN-GROUP ((CONS T T T T T T))} #<VA-LIST: ((#<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER>) (#<CLASP-ORDINARY-REST-PARAMETER-GROUP parameter: #<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>>) (NIL) ((NIL)) #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE:ALLOW-OTHER-KEYS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  573. 572 PROCESS-PARAMETERS-IN-GROUP
  574. 573 ({PROCESS-PARAMETER ((ORDINARY-OPTIONAL-PARAMETER T T T T T T T T))} #<VA-LIST: (#<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> (#<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER>) (#<CLASP-ORDINARY-REST-PARAMETER-GROUP parameter: #<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>>) NIL (NIL) ((NIL)) #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE:KEYS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  575. 574 PROCESS-PARAMETER
  576. 575 ({PROCESS-PARAMETERS-IN-GROUP ((CONS T T T T T T))} #<VA-LIST: ((#<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER>) (#<CLASP-ORDINARY-REST-PARAMETER-GROUP parameter: #<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>>) (NIL NIL) ((NIL)) #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE:KEYS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  577. 576 PROCESS-PARAMETERS-IN-GROUP
  578. 577 ({PROCESS-PARAMETER ((ORDINARY-OPTIONAL-PARAMETER T T T T T T T T))} #<VA-LIST: (#<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> (#<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER>) (#<CLASP-ORDINARY-REST-PARAMETER-GROUP parameter: #<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>>) NIL (NIL NIL) ((NIL)) #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::KEY-FLAG #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  579. 578 PROCESS-PARAMETER
  580. 579 ({PROCESS-PARAMETERS-IN-GROUP ((CONS T T T T T T))} #<VA-LIST: ((#<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER>) (#<CLASP-ORDINARY-REST-PARAMETER-GROUP parameter: #<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>>) (NIL NIL NIL) ((NIL)) #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::KEY-FLAG #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  581. 580 PROCESS-PARAMETERS-IN-GROUP
  582. 581 ({PROCESS-PARAMETER ((ORDINARY-OPTIONAL-PARAMETER T T T T T T T T))} #<VA-LIST: (#<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> (#<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER>) (#<CLASP-ORDINARY-REST-PARAMETER-GROUP parameter: #<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>>) NIL (NIL NIL NIL) ((NIL)) #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE REST #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  583. 582 PROCESS-PARAMETER
  584. 583 ({PROCESS-PARAMETERS-IN-GROUP ((CONS T T T T T T))} #<VA-LIST: ((#<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER>) (#<CLASP-ORDINARY-REST-PARAMETER-GROUP parameter: #<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>>) (NIL NIL NIL NIL) ((NIL)) #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE REST #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  585. 584 PROCESS-PARAMETERS-IN-GROUP
  586. 585 ({PROCESS-PARAMETER ((ORDINARY-OPTIONAL-PARAMETER T T T T T T T T))} #<VA-LIST: (#<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> (#<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER>) (#<CLASP-ORDINARY-REST-PARAMETER-GROUP parameter: #<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>>) NIL (NIL NIL NIL NIL) ((NIL)) #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::OPTS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  587. 586 PROCESS-PARAMETER
  588. 587 ({PROCESS-PARAMETERS-IN-GROUP ((CONS T T T T T T))} #<VA-LIST: ((#<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER>) (#<CLASP-ORDINARY-REST-PARAMETER-GROUP parameter: #<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>>) (NIL NIL NIL NIL NIL) ((NIL)) #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::OPTS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  589. 588 PROCESS-PARAMETERS-IN-GROUP
  590. 589 ({PROCESS-PARAMETER ((ORDINARY-OPTIONAL-PARAMETER T T T T T T T T))} #<VA-LIST: (#<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> (#<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER>) (#<CLASP-ORDINARY-REST-PARAMETER-GROUP parameter: #<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>>) NIL (NIL NIL NIL NIL NIL) ((NIL)) #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::REQS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  591. 590 PROCESS-PARAMETER
  592. 591 ({PROCESS-PARAMETERS-IN-GROUP ((CONS T T T T T T))} #<VA-LIST: ((#<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER>) (#<CLASP-ORDINARY-REST-PARAMETER-GROUP parameter: #<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>>) (NIL NIL NIL NIL NIL NIL) ((NIL)) #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::REQS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  593. 592 PROCESS-PARAMETERS-IN-GROUP
  594. 593 ({PROCESS-PARAMETER ((ORDINARY-OPTIONAL-PARAMETER T T T T T T T T))} #<VA-LIST: (#<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> (#<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER>) (#<CLASP-ORDINARY-REST-PARAMETER-GROUP parameter: #<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>>) NIL (NIL NIL NIL NIL NIL NIL) ((NIL)) #<CLEAVIR-CST-TO-AST::BODY> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  595. 594 PROCESS-PARAMETER
  596. 595 ({PROCESS-PARAMETERS-IN-GROUP ((CONS T T T T T T))} #<VA-LIST: ((#<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER>) (#<CLASP-ORDINARY-REST-PARAMETER-GROUP parameter: #<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>>) (NIL NIL NIL NIL NIL NIL NIL) ((NIL)) #<CLEAVIR-CST-TO-AST::BODY> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  597. 596 PROCESS-PARAMETERS-IN-GROUP
  598. 597 ({PROCESS-PARAMETER-GROUP ((MULTI-PARAMETER-GROUP-MIXIN T T T T T T))} #<VA-LIST: (#<ORDINARY-OPTIONAL-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER>)> (#<CLASP-ORDINARY-REST-PARAMETER-GROUP parameter: #<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>>) (NIL NIL NIL NIL NIL NIL NIL) ((NIL)) #<CLEAVIR-CST-TO-AST::BODY> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  599. 598 (FUNCALL #<COMPILED-CLOSURE@0x10cfe5708 (METHOD PROCESS-PARAMETER-GROUP (MULTI-PARAMETER-GROUP-MIXIN T T T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110be0520> #<VA-LIST: (#<ORDINARY-OPTIONAL-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER>)> (#<CLASP-ORDINARY-REST-PARAMETER-GROUP parameter: #<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>>) (NIL NIL NIL NIL NIL NIL NIL) ((NIL)) #<CLEAVIR-CST-TO-AST::BODY> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  600. 599 ({PROCESS-PARAMETER-GROUP ((:AROUND) (OPTIONAL-PARAMETER-GROUP T T T T T T))} #<VA-LIST: (#<ORDINARY-OPTIONAL-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER>)> (#<CLASP-ORDINARY-REST-PARAMETER-GROUP parameter: #<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>>) (NIL NIL NIL NIL NIL NIL NIL) ((NIL)) #<CLEAVIR-CST-TO-AST::BODY> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10cfe5708 (METHOD PROCESS-PARAMETER-GROUP (MULTI-PARAMETER-GROUP-MIXIN T T T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110be0520>))
  601. 600 (FUNCALL #<COMPILED-CLOSURE@0x10c4d3c48 (METHOD PROCESS-PARAMETER-GROUP (:AROUND) (OPTIONAL-PARAMETER-GROUP T T T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110be5530> #<VA-LIST: (#<ORDINARY-OPTIONAL-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER>)> (#<CLASP-ORDINARY-REST-PARAMETER-GROUP parameter: #<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>>) (NIL NIL NIL NIL NIL NIL NIL) ((NIL)) #<CLEAVIR-CST-TO-AST::BODY> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10cfe5708 (METHOD PROCESS-PARAMETER-GROUP (MULTI-PARAMETER-GROUP-MIXIN T T T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110be0520>))
  602. 601 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<ORDINARY-OPTIONAL-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER>)> (#<CLASP-ORDINARY-REST-PARAMETER-GROUP parameter: #<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>>) (NIL NIL NIL NIL NIL NIL NIL) ((NIL)) #<CLEAVIR-CST-TO-AST::BODY> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  603. 602 ({PROCESS-PARAMETER-GROUPS ((CONS T T T T))} #<VA-LIST: ((#<ORDINARY-OPTIONAL-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER>)> #<CLASP-ORDINARY-REST-PARAMETER-GROUP parameter: #<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>>) ((NIL NIL NIL NIL NIL NIL NIL) (NIL)) #<CLEAVIR-CST-TO-AST::BODY> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  604. 603 PROCESS-PARAMETER-GROUPS
  605. 604 ({PROCESS-PARAMETERS-IN-GROUP ((NULL T T T T T T))} #<VA-LIST: (NIL (#<ORDINARY-OPTIONAL-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER>)> #<CLASP-ORDINARY-REST-PARAMETER-GROUP parameter: #<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>>) NIL ((NIL NIL NIL NIL NIL NIL NIL) (NIL)) #<CLEAVIR-CST-TO-AST::BODY> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  606. 605 PROCESS-PARAMETERS-IN-GROUP
  607. 606 ({PROCESS-PARAMETER-GROUP ((MULTI-PARAMETER-GROUP-MIXIN T T T T T T))} #<VA-LIST: (#<ORDINARY-REQUIRED-PARAMETER-GROUP parameters: NIL> (#<ORDINARY-OPTIONAL-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER>)> #<CLASP-ORDINARY-REST-PARAMETER-GROUP parameter: #<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>>) NIL ((NIL NIL NIL NIL NIL NIL NIL) (NIL)) #<CLEAVIR-CST-TO-AST::BODY> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  608. 607 ({PROCESS-PARAMETER-GROUPS ((CONS T T T T))} #<VA-LIST: ((#<ORDINARY-REQUIRED-PARAMETER-GROUP parameters: NIL> #<ORDINARY-OPTIONAL-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> #<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER>)> #<CLASP-ORDINARY-REST-PARAMETER-GROUP parameter: #<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>>) (NIL (NIL NIL NIL NIL NIL NIL NIL) (NIL)) #<CLEAVIR-CST-TO-AST::BODY> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  609. 608 PROCESS-PARAMETER-GROUPS
  610. 609 ({CONVERT-CODE ((T T T T))} #<VA-LIST: (#<CONS-CST raw: (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123)> #<CONS-CST raw: ((LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  611. 610 (FUNCALL #<COMPILED-CLOSURE@0x10c6aeb68 (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440> #<VA-LIST: (#<CONS-CST raw: (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123)> #<CONS-CST raw: ((LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  612. 611 ({CONVERT-CODE ((T T T CLASP))} #<VA-LIST: (#<CONS-CST raw: (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123)> #<CONS-CST raw: ((LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c6aeb68 (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440>))
  613. 612 (FUNCALL #<COMPILED-CLOSURE@0x10c71d8c8 (METHOD CONVERT-CODE (T T T CLASP)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x112ea9440> #<VA-LIST: (#<CONS-CST raw: (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123)> #<CONS-CST raw: ((LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c6aeb68 (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440>))
  614. 613 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123)> #<CONS-CST raw: ((LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  615. 614 CONVERT-CODE
  616. 615 (CONVERT-LAMBDA-FUNCTION #<CONS-CST raw: (LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  617. 616 ({CONVERT-SPECIAL (((EQL (QUOTE FUNCTION)) T T T))} #<VA-LIST: (FUNCTION #<CONS-CST raw: #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  618. 617 (FUNCALL #<COMPILED-CLOSURE@0x11066c008 (METHOD CONVERT-SPECIAL ((EQL (QUOTE FUNCTION)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5d55c0> #<VA-LIST: (FUNCTION #<CONS-CST raw: #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  619. 618 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (FUNCTION #<CONS-CST raw: #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x11066c008 (METHOD CONVERT-SPECIAL ((EQL (QUOTE FUNCTION)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5d55c0>))
  620. 619 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318 (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (FUNCTION #<CONS-CST raw: #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x11066c008 (METHOD CONVERT-SPECIAL ((EQL (QUOTE FUNCTION)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5d55c0>))
  621. 620 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (FUNCTION #<CONS-CST raw: #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  622. 621 CONVERT-SPECIAL
  623. 622 (APPLY #<FUNCALLABLE-INSTANCE CLEAVIR-CST-TO-AST:CONVERT-SPECIAL> #<VA-LIST: (FUNCTION #<CONS-CST raw: #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)>)
  624. 623 (INVALIDATED-DISPATCH-FUNCTION #<FUNCALLABLE-INSTANCE CLEAVIR-CST-TO-AST:CONVERT-SPECIAL> #<VA-LIST: (FUNCTION #<CONS-CST raw: #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)>)
  625. 624 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  626. 625 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  627. 626 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  628. 627 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  629. 628 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8 (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  630. 629 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  631. 630 CONVERT
  632. 631 (CONVERT-SEQUENCE #<CONS-CST raw: (#'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  633. 632 (MAKE-CALL #<CONS-CST raw: (CORE::COERCE-FDESIGNATOR #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<CLEAVIR-ENVIRONMENT:GLOBAL-FUNCTION-INFO> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CONS-CST raw: (#'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<CLASP-CLEAVIR::CLASP-64BIT>)
  634. 633 ({CONVERT-CST ((T GLOBAL-FUNCTION-INFO T T))} #<CONS-CST raw: (CORE::COERCE-FDESIGNATOR #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<CLEAVIR-ENVIRONMENT:GLOBAL-FUNCTION-INFO> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  635. 634 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (CORE::COERCE-FDESIGNATOR #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  636. 635 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (CORE::COERCE-FDESIGNATOR #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  637. 636 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (CORE::COERCE-FDESIGNATOR #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  638. 637 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8 (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (CORE::COERCE-FDESIGNATOR #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  639. 638 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (CORE::COERCE-FDESIGNATOR #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  640. 639 CONVERT
  641. 640 ({CONVERT-SPECIAL (((EQL (QUOTE MULTIPLE-VALUE-CALL)) T T T))} #<VA-LIST: (CLEAVIR-PRIMOP:MULTIPLE-VALUE-CALL #<CONS-CST raw: (CLEAVIR-PRIMOP:MULTIPLE-VALUE-CALL (CORE::COERCE-FDESIGNATOR #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  642. 641 (FUNCALL #<COMPILED-CLOSURE@0x10cbcccb8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE MULTIPLE-VALUE-CALL)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x1117455c0> #<VA-LIST: (CLEAVIR-PRIMOP:MULTIPLE-VALUE-CALL #<CONS-CST raw: (CLEAVIR-PRIMOP:MULTIPLE-VALUE-CALL (CORE::COERCE-FDESIGNATOR #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  643. 642 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (CLEAVIR-PRIMOP:MULTIPLE-VALUE-CALL #<CONS-CST raw: (CLEAVIR-PRIMOP:MULTIPLE-VALUE-CALL (CORE::COERCE-FDESIGNATOR #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10cbcccb8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE MULTIPLE-VALUE-CALL)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x1117455c0>))
  644. 643 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318 (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (CLEAVIR-PRIMOP:MULTIPLE-VALUE-CALL #<CONS-CST raw: (CLEAVIR-PRIMOP:MULTIPLE-VALUE-CALL (CORE::COERCE-FDESIGNATOR #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10cbcccb8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE MULTIPLE-VALUE-CALL)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x1117455c0>))
  645. 644 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (CLEAVIR-PRIMOP:MULTIPLE-VALUE-CALL #<CONS-CST raw: (CLEAVIR-PRIMOP:MULTIPLE-VALUE-CALL (CORE::COERCE-FDESIGNATOR #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  646. 645 (FUNCALL #<COMPILED-CLOSURE@0x113a73858 COMBINE-METHOD-FUNCTIONS.LAMBDA :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10ac63b10> #<VA-LIST: (CLEAVIR-PRIMOP:MULTIPLE-VALUE-CALL #<CONS-CST raw: (CLEAVIR-PRIMOP:MULTIPLE-VALUE-CALL (CORE::COERCE-FDESIGNATOR #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  647. 646 (PERFORM-OUTCOME #<COMPILED-CLOSURE@0x113a73858 COMBINE-METHOD-FUNCTIONS.LAMBDA :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10ac63b10> (CLEAVIR-PRIMOP:MULTIPLE-VALUE-CALL #<CONS-CST raw: (CLEAVIR-PRIMOP:MULTIPLE-VALUE-CALL (CORE::COERCE-FDESIGNATOR #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>) #<VA-LIST: (CLEAVIR-PRIMOP:MULTIPLE-VALUE-CALL #<CONS-CST raw: (CLEAVIR-PRIMOP:MULTIPLE-VALUE-CALL (CORE::COERCE-FDESIGNATOR #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)>)
  648. 647 (DO-DISPATCH-MISS.MULTIPLE-VALUE-BIND.LAMBDA NIL NIL)
  649. 648 (DO-DISPATCH-MISS #<FUNCALLABLE-INSTANCE CLEAVIR-CST-TO-AST:CONVERT-SPECIAL> #<VA-LIST: (CLEAVIR-PRIMOP:MULTIPLE-VALUE-CALL #<CONS-CST raw: (CLEAVIR-PRIMOP:MULTIPLE-VALUE-CALL (CORE::COERCE-FDESIGNATOR #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (CLEAVIR-PRIMOP:MULTIPLE-VALUE-CALL #<CONS-CST raw: (CLEAVIR-PRIMOP:MULTIPLE-VALUE-CALL (CORE::COERCE-FDESIGNATOR #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>))
  650. 649 (LAMBDA
  651. 650 (FUNWIND-PROTECT #<COMPILED-CLOSURE@0x113a73bd8 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10ac8d890> #<COMPILED-CLOSURE@0x113a73b68 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10ac8ddd0>)
  652. 651 (DISPATCH-MISS #<FUNCALLABLE-INSTANCE CLEAVIR-CST-TO-AST:CONVERT-SPECIAL> #<VA-LIST: (CLEAVIR-PRIMOP:MULTIPLE-VALUE-CALL #<CONS-CST raw: (CLEAVIR-PRIMOP:MULTIPLE-VALUE-CALL (CORE::COERCE-FDESIGNATOR #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)>)
  653. 652 (APPLY #<FUNCALLABLE-INSTANCE CLEAVIR-CST-TO-AST:CONVERT-SPECIAL> #<VA-LIST: (CLEAVIR-PRIMOP:MULTIPLE-VALUE-CALL #<CONS-CST raw: (CLEAVIR-PRIMOP:MULTIPLE-VALUE-CALL (CORE::COERCE-FDESIGNATOR #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)>)
  654. 653 (INVALIDATED-DISPATCH-FUNCTION #<FUNCALLABLE-INSTANCE CLEAVIR-CST-TO-AST:CONVERT-SPECIAL> #<VA-LIST: (CLEAVIR-PRIMOP:MULTIPLE-VALUE-CALL #<CONS-CST raw: (CLEAVIR-PRIMOP:MULTIPLE-VALUE-CALL (CORE::COERCE-FDESIGNATOR #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)>)
  655. 654 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: (CLEAVIR-PRIMOP:MULTIPLE-VALUE-CALL (CORE::COERCE-FDESIGNATOR #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)))> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  656. 655 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (CLEAVIR-PRIMOP:MULTIPLE-VALUE-CALL (CORE::COERCE-FDESIGNATOR #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  657. 656 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (CLEAVIR-PRIMOP:MULTIPLE-VALUE-CALL (CORE::COERCE-FDESIGNATOR #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  658. 657 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (CLEAVIR-PRIMOP:MULTIPLE-VALUE-CALL (CORE::COERCE-FDESIGNATOR #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  659. 658 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8 (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (CLEAVIR-PRIMOP:MULTIPLE-VALUE-CALL (CORE::COERCE-FDESIGNATOR #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  660. 659 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (CLEAVIR-PRIMOP:MULTIPLE-VALUE-CALL (CORE::COERCE-FDESIGNATOR #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  661. 660 CONVERT
  662. 661 ({CONVERT-SPECIAL (((EQL (QUOTE MULTIPLE-VALUE-CALL)) T T CLASP))} #<VA-LIST: (MULTIPLE-VALUE-CALL #<CONS-CST raw: (MULTIPLE-VALUE-CALL #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x110547318 (METHOD CONVERT-SPECIAL ((EQL (QUOTE MULTIPLE-VALUE-CALL)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11073b5c0>))
  663. 662 (FUNCALL #<COMPILED-CLOSURE@0x10c6b8d98 (METHOD CONVERT-SPECIAL ((EQL (QUOTE MULTIPLE-VALUE-CALL)) T T CLASP)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x112ec85c0> #<VA-LIST: (MULTIPLE-VALUE-CALL #<CONS-CST raw: (MULTIPLE-VALUE-CALL #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x110547318 (METHOD CONVERT-SPECIAL ((EQL (QUOTE MULTIPLE-VALUE-CALL)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11073b5c0>))
  664. 663 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (MULTIPLE-VALUE-CALL #<CONS-CST raw: (MULTIPLE-VALUE-CALL #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c6b8d98 (METHOD CONVERT-SPECIAL ((EQL (QUOTE MULTIPLE-VALUE-CALL)) T T CLASP)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x112ec85c0> #<COMPILED-CLOSURE@0x110547318 (METHOD CONVERT-SPECIAL ((EQL (QUOTE MULTIPLE-VALUE-CALL)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11073b5c0>))
  665. 664 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318 (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (MULTIPLE-VALUE-CALL #<CONS-CST raw: (MULTIPLE-VALUE-CALL #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c6b8d98 (METHOD CONVERT-SPECIAL ((EQL (QUOTE MULTIPLE-VALUE-CALL)) T T CLASP)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x112ec85c0> #<COMPILED-CLOSURE@0x110547318 (METHOD CONVERT-SPECIAL ((EQL (QUOTE MULTIPLE-VALUE-CALL)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11073b5c0>))
  666. 665 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (MULTIPLE-VALUE-CALL #<CONS-CST raw: (MULTIPLE-VALUE-CALL #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  667. 666 (FUNCALL #<COMPILED-CLOSURE@0x1138dfee8 COMBINE-METHOD-FUNCTIONS.LAMBDA :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10ac63b10> #<VA-LIST: (MULTIPLE-VALUE-CALL #<CONS-CST raw: (MULTIPLE-VALUE-CALL #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  668. 667 (PERFORM-OUTCOME #<COMPILED-CLOSURE@0x1138dfee8 COMBINE-METHOD-FUNCTIONS.LAMBDA :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10ac63b10> (MULTIPLE-VALUE-CALL #<CONS-CST raw: (MULTIPLE-VALUE-CALL #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>) #<VA-LIST: (MULTIPLE-VALUE-CALL #<CONS-CST raw: (MULTIPLE-VALUE-CALL #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)>)
  669. 668 (DO-DISPATCH-MISS.MULTIPLE-VALUE-BIND.LAMBDA NIL NIL)
  670. 669 (DO-DISPATCH-MISS #<FUNCALLABLE-INSTANCE CLEAVIR-CST-TO-AST:CONVERT-SPECIAL> #<VA-LIST: (MULTIPLE-VALUE-CALL #<CONS-CST raw: (MULTIPLE-VALUE-CALL #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (MULTIPLE-VALUE-CALL #<CONS-CST raw: (MULTIPLE-VALUE-CALL #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>))
  671. 670 (LAMBDA
  672. 671 (FUNWIND-PROTECT #<COMPILED-CLOSURE@0x1138c4468 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10ac8d890> #<COMPILED-CLOSURE@0x1138c43f8 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10ac8ddd0>)
  673. 672 (DISPATCH-MISS #<FUNCALLABLE-INSTANCE CLEAVIR-CST-TO-AST:CONVERT-SPECIAL> #<VA-LIST: (MULTIPLE-VALUE-CALL #<CONS-CST raw: (MULTIPLE-VALUE-CALL #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)>)
  674. 673 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: (MULTIPLE-VALUE-CALL #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)))> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  675. 674 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (MULTIPLE-VALUE-CALL #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  676. 675 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (MULTIPLE-VALUE-CALL #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  677. 676 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (MULTIPLE-VALUE-CALL #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  678. 677 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8 (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (MULTIPLE-VALUE-CALL #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  679. 678 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (MULTIPLE-VALUE-CALL #'(LAMBDA (&OPTIONAL (CORE::REQS) (CORE::OPTS) (REST) (CORE::KEY-FLAG) (CORE:KEYS) (CORE:ALLOW-OTHER-KEYS) (CORE::AUXS) &REST #:G61123) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  680. 679 CONVERT
  681. 680 ({CONVERT-CST ((T GLOBAL-MACRO-INFO T T))} #<CONS-CST raw: (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<CLEAVIR-ENVIRONMENT:GLOBAL-MACRO-INFO> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  682. 681 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  683. 682 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  684. 683 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  685. 684 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8 (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  686. 685 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  687. 686 CONVERT
  688. 687 (CONVERT-SEQUENCE #<CONS-CST raw: ((MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<BLOCK CORE::DM-VL #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  689. 688 ({CONVERT-SPECIAL (((EQL (QUOTE BLOCK)) T T T))} #<VA-LIST: (BLOCK #<CONS-CST raw: (BLOCK CORE::DM-VL (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::MACRO #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  690. 689 (FUNCALL #<COMPILED-CLOSURE@0x10c593858 (METHOD CONVERT-SPECIAL ((EQL (QUOTE BLOCK)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c295c0> #<VA-LIST: (BLOCK #<CONS-CST raw: (BLOCK CORE::DM-VL (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::MACRO #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  691. 690 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (BLOCK #<CONS-CST raw: (BLOCK CORE::DM-VL (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::MACRO #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c593858 (METHOD CONVERT-SPECIAL ((EQL (QUOTE BLOCK)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c295c0>))
  692. 691 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318 (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (BLOCK #<CONS-CST raw: (BLOCK CORE::DM-VL (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::MACRO #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c593858 (METHOD CONVERT-SPECIAL ((EQL (QUOTE BLOCK)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c295c0>))
  693. 692 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (BLOCK #<CONS-CST raw: (BLOCK CORE::DM-VL (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::MACRO #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  694. 693 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: (BLOCK CORE::DM-VL (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> #<LEXICAL-VARIABLE CORE::MACRO #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  695. 694 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (BLOCK CORE::DM-VL (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::MACRO #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  696. 695 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (BLOCK CORE::DM-VL (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::MACRO #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  697. 696 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (BLOCK CORE::DM-VL (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::MACRO #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  698. 697 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8 (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (BLOCK CORE::DM-VL (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::MACRO #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  699. 698 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (BLOCK CORE::DM-VL (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::MACRO #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  700. 699 CONVERT
  701. 700 (CONVERT-BODY #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::MACRO #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  702. 701 ({PROCESS-PARAMETER-GROUPS ((NULL T T T T))} #<VA-LIST: (NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::MACRO #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  703. 702 PROCESS-PARAMETER-GROUPS
  704. 703 ({PROCESS-PARAMETERS-IN-GROUP ((NULL T T T T T T))} #<VA-LIST: (NIL NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::MACRO #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  705. 704 PROCESS-PARAMETERS-IN-GROUP
  706. 705 ({PROCESS-PARAMETER ((SIMPLE-VARIABLE T T T T T T T T))} #<VA-LIST: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE> NIL NIL NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::WHOLE #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  707. 706 PROCESS-PARAMETER
  708. 707 ({PROCESS-PARAMETERS-IN-GROUP ((CONS T T T T T T))} #<VA-LIST: ((#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>) NIL (NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::WHOLE #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  709. 708 PROCESS-PARAMETERS-IN-GROUP
  710. 709 ({PROCESS-PARAMETER ((SIMPLE-VARIABLE T T T T T T T T))} #<VA-LIST: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE> (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>) NIL NIL (NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::VL #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  711. 710 PROCESS-PARAMETER
  712. 711 ({PROCESS-PARAMETERS-IN-GROUP ((CONS T T T T T T))} #<VA-LIST: ((#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE> #<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>) NIL (NIL NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::VL #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  713. 712 PROCESS-PARAMETERS-IN-GROUP
  714. 713 ({PROCESS-PARAMETER ((SIMPLE-VARIABLE T T T T T T T T))} #<VA-LIST: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE> (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE> #<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>) NIL NIL (NIL NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<FUNCTION CORE::DM-V #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  715. 714 PROCESS-PARAMETER
  716. 715 ({PROCESS-PARAMETERS-IN-GROUP ((CONS T T T T T T))} #<VA-LIST: ((#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE> #<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE> #<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>) NIL (NIL NIL NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<FUNCTION CORE::DM-V #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  717. 716 PROCESS-PARAMETERS-IN-GROUP
  718. 717 ({PROCESS-PARAMETER-GROUP ((MULTI-PARAMETER-GROUP-MIXIN T T T T T T))} #<VA-LIST: (#<ORDINARY-REQUIRED-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE> #<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE> #<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>)> NIL (NIL NIL NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<FUNCTION CORE::DM-V #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  719. 718 ({PROCESS-PARAMETER-GROUPS ((CONS T T T T))} #<VA-LIST: ((#<ORDINARY-REQUIRED-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE> #<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE> #<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>)>) ((NIL NIL NIL)) #<CLEAVIR-CST-TO-AST::BODY> #<FUNCTION CORE::DM-V #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  720. 719 PROCESS-PARAMETER-GROUPS
  721. 720 ({CONVERT-CODE ((T T T T))} #<VA-LIST: (#<CONS-CST raw: (CORE::VL CORE::WHOLE CORE::MACRO)> #<CONS-CST raw: ((MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<FUNCTION CORE::DM-V #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT> #<ATOM-CST raw: CORE::DM-VL>)> NIL)
  722. 721 (FUNCALL #<COMPILED-CLOSURE@0x10c6aeb68 (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440> #<VA-LIST: (#<CONS-CST raw: (CORE::VL CORE::WHOLE CORE::MACRO)> #<CONS-CST raw: ((MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<FUNCTION CORE::DM-V #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT> #<ATOM-CST raw: CORE::DM-VL>)> NIL)
  723. 722 ({CONVERT-CODE ((T T T CLASP))} #<VA-LIST: (#<CONS-CST raw: (CORE::VL CORE::WHOLE CORE::MACRO)> #<CONS-CST raw: ((MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<FUNCTION CORE::DM-V #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT> #<ATOM-CST raw: CORE::DM-VL>)> (#<COMPILED-CLOSURE@0x10c6aeb68 (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440>))
  724. 723 (FUNCALL #<COMPILED-CLOSURE@0x10c71d8c8 (METHOD CONVERT-CODE (T T T CLASP)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x112ea9440> #<VA-LIST: (#<CONS-CST raw: (CORE::VL CORE::WHOLE CORE::MACRO)> #<CONS-CST raw: ((MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<FUNCTION CORE::DM-V #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT> #<ATOM-CST raw: CORE::DM-VL>)> (#<COMPILED-CLOSURE@0x10c6aeb68 (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440>))
  725. 724 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (CORE::VL CORE::WHOLE CORE::MACRO)> #<CONS-CST raw: ((MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<FUNCTION CORE::DM-V #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT> #<ATOM-CST raw: CORE::DM-VL>)> NIL)
  726. 725 CONVERT-CODE
  727. 726 (CONVERT-LOCAL-FUNCTION #<CONS-CST raw: (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<FUNCTION CORE::DM-V #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  728. 727 (CONVERT-LOCAL-FUNCTIONS #<CONS-CST raw: ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL))))))> #<FUNCTION CORE::DM-V #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  729. 728 ({CONVERT-SPECIAL (((EQL (QUOTE LABELS)) T T T))} #<VA-LIST: (LABELS #<CONS-CST raw: (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))> #<BLOCK CORE::DESTRUCTURE #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  730. 729 (FUNCALL #<COMPILED-CLOSURE@0x110046628 (METHOD CONVERT-SPECIAL ((EQL (QUOTE LABELS)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10da495c0> #<VA-LIST: (LABELS #<CONS-CST raw: (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))> #<BLOCK CORE::DESTRUCTURE #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  731. 730 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (LABELS #<CONS-CST raw: (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))> #<BLOCK CORE::DESTRUCTURE #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x110046628 (METHOD CONVERT-SPECIAL ((EQL (QUOTE LABELS)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10da495c0>))
  732. 731 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318 (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (LABELS #<CONS-CST raw: (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))> #<BLOCK CORE::DESTRUCTURE #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x110046628 (METHOD CONVERT-SPECIAL ((EQL (QUOTE LABELS)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10da495c0>))
  733. 732 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (LABELS #<CONS-CST raw: (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))> #<BLOCK CORE::DESTRUCTURE #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  734. 733 (FUNCALL #<COMPILED-CLOSURE@0x114dcbee8 COMBINE-METHOD-FUNCTIONS.LAMBDA :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10ac63b10> #<VA-LIST: (LABELS #<CONS-CST raw: (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))> #<BLOCK CORE::DESTRUCTURE #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  735. 734 (PERFORM-OUTCOME #<COMPILED-CLOSURE@0x114dcbee8 COMBINE-METHOD-FUNCTIONS.LAMBDA :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10ac63b10> (LABELS #<CONS-CST raw: (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))> #<BLOCK CORE::DESTRUCTURE #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>) #<VA-LIST: (LABELS #<CONS-CST raw: (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))> #<BLOCK CORE::DESTRUCTURE #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)>)
  736. 735 (DO-DISPATCH-MISS.MULTIPLE-VALUE-BIND.LAMBDA NIL NIL)
  737. 736 (DO-DISPATCH-MISS #<FUNCALLABLE-INSTANCE CLEAVIR-CST-TO-AST:CONVERT-SPECIAL> #<VA-LIST: (LABELS #<CONS-CST raw: (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))> #<BLOCK CORE::DESTRUCTURE #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (LABELS #<CONS-CST raw: (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))> #<BLOCK CORE::DESTRUCTURE #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>))
  738. 737 (LAMBDA
  739. 738 (FUNWIND-PROTECT #<COMPILED-CLOSURE@0x114d39238 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10ac8d890> #<COMPILED-CLOSURE@0x114d391c8 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10ac8ddd0>)
  740. 739 (DISPATCH-MISS #<FUNCALLABLE-INSTANCE CLEAVIR-CST-TO-AST:CONVERT-SPECIAL> #<VA-LIST: (LABELS #<CONS-CST raw: (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))> #<BLOCK CORE::DESTRUCTURE #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)>)
  741. 740 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> #<BLOCK CORE::DESTRUCTURE #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  742. 741 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))> #<BLOCK CORE::DESTRUCTURE #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  743. 742 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))> #<BLOCK CORE::DESTRUCTURE #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  744. 743 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))> #<BLOCK CORE::DESTRUCTURE #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  745. 744 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8 (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))> #<BLOCK CORE::DESTRUCTURE #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  746. 745 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))> #<BLOCK CORE::DESTRUCTURE #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  747. 746 CONVERT
  748. 747 (CONVERT-SEQUENCE #<CONS-CST raw: ((LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS))))> #<BLOCK CORE::DESTRUCTURE #<CLEAVIR-AST:BLOCK-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  749. 748 ({CONVERT-SPECIAL (((EQL (QUOTE BLOCK)) T T T))} #<VA-LIST: (BLOCK #<CONS-CST raw: (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS))))> #<LEXICAL-VARIABLE CORE::DESTRUCTURE-SYMBOLS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  750. 749 (FUNCALL #<COMPILED-CLOSURE@0x10c593858 (METHOD CONVERT-SPECIAL ((EQL (QUOTE BLOCK)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c295c0> #<VA-LIST: (BLOCK #<CONS-CST raw: (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS))))> #<LEXICAL-VARIABLE CORE::DESTRUCTURE-SYMBOLS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  751. 750 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (BLOCK #<CONS-CST raw: (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS))))> #<LEXICAL-VARIABLE CORE::DESTRUCTURE-SYMBOLS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c593858 (METHOD CONVERT-SPECIAL ((EQL (QUOTE BLOCK)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c295c0>))
  752. 751 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318 (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (BLOCK #<CONS-CST raw: (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS))))> #<LEXICAL-VARIABLE CORE::DESTRUCTURE-SYMBOLS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c593858 (METHOD CONVERT-SPECIAL ((EQL (QUOTE BLOCK)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c295c0>))
  753. 752 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (BLOCK #<CONS-CST raw: (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS))))> #<LEXICAL-VARIABLE CORE::DESTRUCTURE-SYMBOLS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  754. 753 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS))))> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> #<LEXICAL-VARIABLE CORE::DESTRUCTURE-SYMBOLS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  755. 754 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS))))> #<LEXICAL-VARIABLE CORE::DESTRUCTURE-SYMBOLS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  756. 755 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS))))> #<LEXICAL-VARIABLE CORE::DESTRUCTURE-SYMBOLS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  757. 756 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS))))> #<LEXICAL-VARIABLE CORE::DESTRUCTURE-SYMBOLS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  758. 757 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8 (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS))))> #<LEXICAL-VARIABLE CORE::DESTRUCTURE-SYMBOLS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  759. 758 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS))))> #<LEXICAL-VARIABLE CORE::DESTRUCTURE-SYMBOLS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  760. 759 CONVERT
  761. 760 (CONVERT-SEQUENCE #<CONS-CST raw: ((BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))))> #<LEXICAL-VARIABLE CORE::DESTRUCTURE-SYMBOLS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  762. 761 ({CONVERT-SPECIAL (((EQL (QUOTE PROGN)) T T T))} #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))))> #<LEXICAL-VARIABLE CORE::DESTRUCTURE-SYMBOLS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  763. 762 (FUNCALL #<COMPILED-CLOSURE@0x1106119a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0> #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))))> #<LEXICAL-VARIABLE CORE::DESTRUCTURE-SYMBOLS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  764. 763 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))))> #<LEXICAL-VARIABLE CORE::DESTRUCTURE-SYMBOLS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1106119a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0>))
  765. 764 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318 (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))))> #<LEXICAL-VARIABLE CORE::DESTRUCTURE-SYMBOLS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1106119a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0>))
  766. 765 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))))> #<LEXICAL-VARIABLE CORE::DESTRUCTURE-SYMBOLS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  767. 766 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: (PROGN (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))))> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> #<LEXICAL-VARIABLE CORE::DESTRUCTURE-SYMBOLS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  768. 767 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (PROGN (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))))> #<LEXICAL-VARIABLE CORE::DESTRUCTURE-SYMBOLS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  769. 768 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (PROGN (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))))> #<LEXICAL-VARIABLE CORE::DESTRUCTURE-SYMBOLS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  770. 769 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (PROGN (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))))> #<LEXICAL-VARIABLE CORE::DESTRUCTURE-SYMBOLS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  771. 770 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8 (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (PROGN (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))))> #<LEXICAL-VARIABLE CORE::DESTRUCTURE-SYMBOLS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  772. 771 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (PROGN (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))))> #<LEXICAL-VARIABLE CORE::DESTRUCTURE-SYMBOLS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  773. 772 CONVERT
  774. 773 (CONVERT-BODY #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::DESTRUCTURE-SYMBOLS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  775. 774 ({PROCESS-PARAMETER-GROUPS ((NULL T T T T))} #<VA-LIST: (NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::DESTRUCTURE-SYMBOLS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  776. 775 PROCESS-PARAMETER-GROUPS
  777. 776 ({PROCESS-PARAMETERS-IN-GROUP ((NULL T T T T T T))} #<VA-LIST: (NIL NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::DESTRUCTURE-SYMBOLS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  778. 777 PROCESS-PARAMETERS-IN-GROUP
  779. 778 ({PROCESS-PARAMETER ((AUX-PARAMETER T T T T T T T T))} #<VA-LIST: (#<CONCRETE-SYNTAX-TREE:AUX-PARAMETER> NIL NIL NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::BASIS-FORM #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  780. 779 PROCESS-PARAMETER
  781. 780 (APPLY #<FUNCALLABLE-INSTANCE CLEAVIR-CST-TO-AST:PROCESS-PARAMETER> #<VA-LIST: (#<CONCRETE-SYNTAX-TREE:AUX-PARAMETER> NIL NIL NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::BASIS-FORM #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)>)
  782. 781 (INVALIDATED-DISPATCH-FUNCTION #<FUNCALLABLE-INSTANCE CLEAVIR-CST-TO-AST:PROCESS-PARAMETER> #<VA-LIST: (#<CONCRETE-SYNTAX-TREE:AUX-PARAMETER> NIL NIL NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::BASIS-FORM #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)>)
  783. 782 ({PROCESS-PARAMETERS-IN-GROUP ((CONS T T T T T T))} #<VA-LIST: ((#<CONCRETE-SYNTAX-TREE:AUX-PARAMETER>) NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::BASIS-FORM #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  784. 783 PROCESS-PARAMETERS-IN-GROUP
  785. 784 ({PROCESS-PARAMETER ((AUX-PARAMETER T T T T T T T T))} #<VA-LIST: (#<CONCRETE-SYNTAX-TREE:AUX-PARAMETER> (#<CONCRETE-SYNTAX-TREE:AUX-PARAMETER>) NIL NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::MACRO-NAME #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  786. 785 (FUNCALL #<COMPILED-CLOSURE@0x10cbccd98 (METHOD PROCESS-PARAMETER (AUX-PARAMETER T T T T T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110bfe5d0> #<VA-LIST: (#<CONCRETE-SYNTAX-TREE:AUX-PARAMETER> (#<CONCRETE-SYNTAX-TREE:AUX-PARAMETER>) NIL NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::MACRO-NAME #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  787. 786 (PERFORM-OUTCOME #<COMPILED-CLOSURE@0x10cbccd98 (METHOD PROCESS-PARAMETER (AUX-PARAMETER T T T T T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110bfe5d0> (#<CONCRETE-SYNTAX-TREE:AUX-PARAMETER> (#<CONCRETE-SYNTAX-TREE:AUX-PARAMETER>) NIL NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::MACRO-NAME #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>) #<VA-LIST: (#<CONCRETE-SYNTAX-TREE:AUX-PARAMETER> (#<CONCRETE-SYNTAX-TREE:AUX-PARAMETER>) NIL NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::MACRO-NAME #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)>)
  788. 787 (DO-DISPATCH-MISS.MULTIPLE-VALUE-BIND.LAMBDA (#<STANDARD-METHOD PROCESS-PARAMETER (CONCRETE-SYNTAX-TREE:AUX-PARAMETER T T T T T T T T)>) T)
  789. 788 (DO-DISPATCH-MISS #<FUNCALLABLE-INSTANCE CLEAVIR-CST-TO-AST:PROCESS-PARAMETER> #<VA-LIST: (#<CONCRETE-SYNTAX-TREE:AUX-PARAMETER> (#<CONCRETE-SYNTAX-TREE:AUX-PARAMETER>) NIL NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::MACRO-NAME #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<CONCRETE-SYNTAX-TREE:AUX-PARAMETER> (#<CONCRETE-SYNTAX-TREE:AUX-PARAMETER>) NIL NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::MACRO-NAME #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>))
  790. 789 (LAMBDA
  791. 790 (FUNWIND-PROTECT #<COMPILED-CLOSURE@0x115e64078 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10ac8d890> #<COMPILED-CLOSURE@0x115e64008 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10ac8ddd0>)
  792. 791 (DISPATCH-MISS #<FUNCALLABLE-INSTANCE CLEAVIR-CST-TO-AST:PROCESS-PARAMETER> #<VA-LIST: (#<CONCRETE-SYNTAX-TREE:AUX-PARAMETER> (#<CONCRETE-SYNTAX-TREE:AUX-PARAMETER>) NIL NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::MACRO-NAME #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)>)
  793. 792 ({PROCESS-PARAMETERS-IN-GROUP ((CONS T T T T T T))} #<VA-LIST: ((#<CONCRETE-SYNTAX-TREE:AUX-PARAMETER> #<CONCRETE-SYNTAX-TREE:AUX-PARAMETER>) NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::MACRO-NAME #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  794. 793 PROCESS-PARAMETERS-IN-GROUP
  795. 794 ({PROCESS-PARAMETER-GROUP ((MULTI-PARAMETER-GROUP-MIXIN T T T T T T))} #<VA-LIST: (#<AUX-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:AUX-PARAMETER> #<CONCRETE-SYNTAX-TREE:AUX-PARAMETER>)> NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::MACRO-NAME #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  796. 795 (FUNCALL #<COMPILED-CLOSURE@0x10cfe5708 (METHOD PROCESS-PARAMETER-GROUP (MULTI-PARAMETER-GROUP-MIXIN T T T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110be0520> #<VA-LIST: (#<AUX-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:AUX-PARAMETER> #<CONCRETE-SYNTAX-TREE:AUX-PARAMETER>)> NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::MACRO-NAME #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  797. 796 (PERFORM-OUTCOME #<COMPILED-CLOSURE@0x10cfe5708 (METHOD PROCESS-PARAMETER-GROUP (MULTI-PARAMETER-GROUP-MIXIN T T T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110be0520> (#<AUX-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:AUX-PARAMETER> #<CONCRETE-SYNTAX-TREE:AUX-PARAMETER>)> NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::MACRO-NAME #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>) #<VA-LIST: (#<AUX-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:AUX-PARAMETER> #<CONCRETE-SYNTAX-TREE:AUX-PARAMETER>)> NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::MACRO-NAME #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)>)
  798. 797 (DO-DISPATCH-MISS.MULTIPLE-VALUE-BIND.LAMBDA (#<STANDARD-METHOD PROCESS-PARAMETER-GROUP (CONCRETE-SYNTAX-TREE:MULTI-PARAMETER-GROUP-MIXIN T T T T T T)>) T)
  799. 798 (DO-DISPATCH-MISS #<FUNCALLABLE-INSTANCE CLEAVIR-CST-TO-AST:PROCESS-PARAMETER-GROUP> #<VA-LIST: (#<AUX-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:AUX-PARAMETER> #<CONCRETE-SYNTAX-TREE:AUX-PARAMETER>)> NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::MACRO-NAME #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<AUX-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:AUX-PARAMETER> #<CONCRETE-SYNTAX-TREE:AUX-PARAMETER>)> NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::MACRO-NAME #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>))
  800. 799 (LAMBDA
  801. 800 (FUNWIND-PROTECT #<COMPILED-CLOSURE@0x115e64628 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10ac8d890> #<COMPILED-CLOSURE@0x115e645b8 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10ac8ddd0>)
  802. 801 (DISPATCH-MISS #<FUNCALLABLE-INSTANCE CLEAVIR-CST-TO-AST:PROCESS-PARAMETER-GROUP> #<VA-LIST: (#<AUX-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:AUX-PARAMETER> #<CONCRETE-SYNTAX-TREE:AUX-PARAMETER>)> NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::MACRO-NAME #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)>)
  803. 802 ({PROCESS-PARAMETER-GROUPS ((CONS T T T T))} #<VA-LIST: ((#<AUX-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:AUX-PARAMETER> #<CONCRETE-SYNTAX-TREE:AUX-PARAMETER>)>) (NIL) #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::MACRO-NAME #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  804. 803 PROCESS-PARAMETER-GROUPS
  805. 804 ({PROCESS-PARAMETERS-IN-GROUP ((NULL T T T T T T))} #<VA-LIST: (NIL (#<AUX-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:AUX-PARAMETER> #<CONCRETE-SYNTAX-TREE:AUX-PARAMETER>)>) NIL (NIL) #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::MACRO-NAME #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  806. 805 PROCESS-PARAMETERS-IN-GROUP
  807. 806 ({PROCESS-PARAMETER ((ORDINARY-OPTIONAL-PARAMETER T T T T T T T T))} #<VA-LIST: (#<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER> NIL (#<AUX-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:AUX-PARAMETER> #<CONCRETE-SYNTAX-TREE:AUX-PARAMETER>)>) NIL NIL (NIL) #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::MACRO #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  808. 807 ({PROCESS-PARAMETERS-IN-GROUP ((CONS T T T T T T))} #<VA-LIST: ((#<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER>) (#<AUX-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:AUX-PARAMETER> #<CONCRETE-SYNTAX-TREE:AUX-PARAMETER>)>) (NIL) (NIL) #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::MACRO #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  809. 808 PROCESS-PARAMETERS-IN-GROUP
  810. 809 ({PROCESS-PARAMETER-GROUP ((MULTI-PARAMETER-GROUP-MIXIN T T T T T T))} #<VA-LIST: (#<ORDINARY-OPTIONAL-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER>)> (#<AUX-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:AUX-PARAMETER> #<CONCRETE-SYNTAX-TREE:AUX-PARAMETER>)>) (NIL) (NIL) #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::MACRO #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  811. 810 (FUNCALL #<COMPILED-CLOSURE@0x10cfe5708 (METHOD PROCESS-PARAMETER-GROUP (MULTI-PARAMETER-GROUP-MIXIN T T T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110be0520> #<VA-LIST: (#<ORDINARY-OPTIONAL-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER>)> (#<AUX-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:AUX-PARAMETER> #<CONCRETE-SYNTAX-TREE:AUX-PARAMETER>)>) (NIL) (NIL) #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::MACRO #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  812. 811 ({PROCESS-PARAMETER-GROUP ((:AROUND) (OPTIONAL-PARAMETER-GROUP T T T T T T))} #<VA-LIST: (#<ORDINARY-OPTIONAL-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER>)> (#<AUX-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:AUX-PARAMETER> #<CONCRETE-SYNTAX-TREE:AUX-PARAMETER>)>) (NIL) (NIL) #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::MACRO #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10cfe5708 (METHOD PROCESS-PARAMETER-GROUP (MULTI-PARAMETER-GROUP-MIXIN T T T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110be0520>))
  813. 812 (FUNCALL #<COMPILED-CLOSURE@0x10c4d3c48 (METHOD PROCESS-PARAMETER-GROUP (:AROUND) (OPTIONAL-PARAMETER-GROUP T T T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110be5530> #<VA-LIST: (#<ORDINARY-OPTIONAL-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER>)> (#<AUX-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:AUX-PARAMETER> #<CONCRETE-SYNTAX-TREE:AUX-PARAMETER>)>) (NIL) (NIL) #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::MACRO #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10cfe5708 (METHOD PROCESS-PARAMETER-GROUP (MULTI-PARAMETER-GROUP-MIXIN T T T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110be0520>))
  814. 813 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<ORDINARY-OPTIONAL-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER>)> (#<AUX-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:AUX-PARAMETER> #<CONCRETE-SYNTAX-TREE:AUX-PARAMETER>)>) (NIL) (NIL) #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::MACRO #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  815. 814 ({PROCESS-PARAMETER-GROUPS ((CONS T T T T))} #<VA-LIST: ((#<ORDINARY-OPTIONAL-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER>)> #<AUX-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:AUX-PARAMETER> #<CONCRETE-SYNTAX-TREE:AUX-PARAMETER>)>) ((NIL) NIL) #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::MACRO #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  816. 815 PROCESS-PARAMETER-GROUPS
  817. 816 ({PROCESS-PARAMETERS-IN-GROUP ((NULL T T T T T T))} #<VA-LIST: (NIL (#<ORDINARY-OPTIONAL-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER>)> #<AUX-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:AUX-PARAMETER> #<CONCRETE-SYNTAX-TREE:AUX-PARAMETER>)>) NIL ((NIL) NIL) #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::MACRO #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  818. 817 PROCESS-PARAMETERS-IN-GROUP
  819. 818 ({PROCESS-PARAMETER ((SIMPLE-VARIABLE T T T T T T T T))} #<VA-LIST: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE> NIL (#<ORDINARY-OPTIONAL-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER>)> #<AUX-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:AUX-PARAMETER> #<CONCRETE-SYNTAX-TREE:AUX-PARAMETER>)>) NIL NIL ((NIL) NIL) #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::VL #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  820. 819 ({PROCESS-PARAMETERS-IN-GROUP ((CONS T T T T T T))} #<VA-LIST: ((#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>) (#<ORDINARY-OPTIONAL-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER>)> #<AUX-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:AUX-PARAMETER> #<CONCRETE-SYNTAX-TREE:AUX-PARAMETER>)>) (NIL) ((NIL) NIL) #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::VL #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  821. 820 PROCESS-PARAMETERS-IN-GROUP
  822. 821 ({PROCESS-PARAMETER ((SIMPLE-VARIABLE T T T T T T T T))} #<VA-LIST: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE> (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>) (#<ORDINARY-OPTIONAL-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER>)> #<AUX-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:AUX-PARAMETER> #<CONCRETE-SYNTAX-TREE:AUX-PARAMETER>)>) NIL (NIL) ((NIL) NIL) #<CLEAVIR-CST-TO-AST::BODY> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  823. 822 ({PROCESS-PARAMETERS-IN-GROUP ((CONS T T T T T T))} #<VA-LIST: ((#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE> #<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>) (#<ORDINARY-OPTIONAL-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER>)> #<AUX-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:AUX-PARAMETER> #<CONCRETE-SYNTAX-TREE:AUX-PARAMETER>)>) (NIL NIL) ((NIL) NIL) #<CLEAVIR-CST-TO-AST::BODY> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  824. 823 PROCESS-PARAMETERS-IN-GROUP
  825. 824 ({PROCESS-PARAMETER-GROUP ((MULTI-PARAMETER-GROUP-MIXIN T T T T T T))} #<VA-LIST: (#<ORDINARY-REQUIRED-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE> #<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>)> (#<ORDINARY-OPTIONAL-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER>)> #<AUX-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:AUX-PARAMETER> #<CONCRETE-SYNTAX-TREE:AUX-PARAMETER>)>) (NIL NIL) ((NIL) NIL) #<CLEAVIR-CST-TO-AST::BODY> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  826. 825 ({PROCESS-PARAMETER-GROUPS ((CONS T T T T))} #<VA-LIST: ((#<ORDINARY-REQUIRED-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE> #<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>)> #<ORDINARY-OPTIONAL-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:ORDINARY-OPTIONAL-PARAMETER>)> #<AUX-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:AUX-PARAMETER> #<CONCRETE-SYNTAX-TREE:AUX-PARAMETER>)>) ((NIL NIL) (NIL) NIL) #<CLEAVIR-CST-TO-AST::BODY> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  827. 826 PROCESS-PARAMETER-GROUPS
  828. 827 ({CONVERT-CODE ((T T T T))} #<VA-LIST: (#<CONS-CST raw: (CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM)))> #<CONS-CST raw: ((DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))))> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  829. 828 (FUNCALL #<COMPILED-CLOSURE@0x10c6aeb68 (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440> #<VA-LIST: (#<CONS-CST raw: (CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM)))> #<CONS-CST raw: ((DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))))> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  830. 829 ({CONVERT-CODE ((T T T CLASP))} #<VA-LIST: (#<CONS-CST raw: (CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM)))> #<CONS-CST raw: ((DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))))> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c6aeb68 (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440>))
  831. 830 (FUNCALL #<COMPILED-CLOSURE@0x10c71d8c8 (METHOD CONVERT-CODE (T T T CLASP)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x112ea9440> #<VA-LIST: (#<CONS-CST raw: (CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM)))> #<CONS-CST raw: ((DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))))> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c6aeb68 (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440>))
  832. 831 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM)))> #<CONS-CST raw: ((DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))))> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  833. 832 CONVERT-CODE
  834. 833 (CONVERT-LAMBDA-FUNCTION #<CONS-CST raw: (LAMBDA (CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM))) (DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))))> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)
  835. 834 ({CONVERT-SPECIAL (((EQL (QUOTE FUNCTION)) T T T))} #<VA-LIST: (FUNCTION #<CONS-CST raw: #'(LAMBDA (CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM))) (DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))))> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  836. 835 (FUNCALL #<COMPILED-CLOSURE@0x11066c008 (METHOD CONVERT-SPECIAL ((EQL (QUOTE FUNCTION)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5d55c0> #<VA-LIST: (FUNCTION #<CONS-CST raw: #'(LAMBDA (CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM))) (DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))))> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  837. 836 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (FUNCTION #<CONS-CST raw: #'(LAMBDA (CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM))) (DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))))> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x11066c008 (METHOD CONVERT-SPECIAL ((EQL (QUOTE FUNCTION)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5d55c0>))
  838. 837 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318 (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (FUNCTION #<CONS-CST raw: #'(LAMBDA (CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM))) (DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))))> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x11066c008 (METHOD CONVERT-SPECIAL ((EQL (QUOTE FUNCTION)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5d55c0>))
  839. 838 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (FUNCTION #<CONS-CST raw: #'(LAMBDA (CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM))) (DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))))> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  840. 839 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: #'(LAMBDA (CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM))) (DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))))> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)
  841. 840 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: #'(LAMBDA (CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM))) (DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))))> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  842. 841 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: #'(LAMBDA (CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM))) (DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))))> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  843. 842 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: #'(LAMBDA (CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM))) (DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))))> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  844. 843 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8 (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: #'(LAMBDA (CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM))) (DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))))> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  845. 844 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: #'(LAMBDA (CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM))) (DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))))> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  846. 845 CONVERT
  847. 846 (CONVERT-SEQUENCE #<CONS-CST raw: (#'(LAMBDA (CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM))) (DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS))))))> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)
  848. 847 ({CONVERT-LAMBDA-CALL ((T T T))} #<CONS-CST raw: ((LAMBDA (#:G61120) (CORE:FSET 'CORE::DESTRUCTURE #:G61120 NIL T '#1=(CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM)))) (CORE:SET-SOURCE-INFO #:G61120 '(CORE:CURRENT-SOURCE-FILE 0 1234 0)) (SETQ COMPILER:*CURRENT-FORM-LINENO* 1234) 'CORE::DESTRUCTURE) (#'(LAMBDA #1# (DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))))))> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)
  849. 848 CONVERT-LAMBDA-CALL
  850. 849 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (#:G61120) (CORE:FSET 'CORE::DESTRUCTURE #:G61120 NIL T '#1=(CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM)))) (CORE:SET-SOURCE-INFO #:G61120 '(CORE:CURRENT-SOURCE-FILE 0 1234 0)) (SETQ COMPILER:*CURRENT-FORM-LINENO* 1234) 'CORE::DESTRUCTURE) (#'(LAMBDA #1# (DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))))))> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  851. 850 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (#:G61120) (CORE:FSET 'CORE::DESTRUCTURE #:G61120 NIL T '#1=(CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM)))) (CORE:SET-SOURCE-INFO #:G61120 '(CORE:CURRENT-SOURCE-FILE 0 1234 0)) (SETQ COMPILER:*CURRENT-FORM-LINENO* 1234) 'CORE::DESTRUCTURE) (#'(LAMBDA #1# (DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))))))> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  852. 851 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (#:G61120) (CORE:FSET 'CORE::DESTRUCTURE #:G61120 NIL T '#1=(CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM)))) (CORE:SET-SOURCE-INFO #:G61120 '(CORE:CURRENT-SOURCE-FILE 0 1234 0)) (SETQ COMPILER:*CURRENT-FORM-LINENO* 1234) 'CORE::DESTRUCTURE) (#'(LAMBDA #1# (DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))))))> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  853. 852 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8 (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (#:G61120) (CORE:FSET 'CORE::DESTRUCTURE #:G61120 NIL T '#1=(CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM)))) (CORE:SET-SOURCE-INFO #:G61120 '(CORE:CURRENT-SOURCE-FILE 0 1234 0)) (SETQ COMPILER:*CURRENT-FORM-LINENO* 1234) 'CORE::DESTRUCTURE) (#'(LAMBDA #1# (DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))))))> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  854. 853 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (#:G61120) (CORE:FSET 'CORE::DESTRUCTURE #:G61120 NIL T '#1=(CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM)))) (CORE:SET-SOURCE-INFO #:G61120 '(CORE:CURRENT-SOURCE-FILE 0 1234 0)) (SETQ COMPILER:*CURRENT-FORM-LINENO* 1234) 'CORE::DESTRUCTURE) (#'(LAMBDA #1# (DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS)))))))> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  855. 854 CONVERT
  856. 855 ({CONVERT-LET ((T T T))} #<CONS-CST raw: (LET ((#:G61120 #'(LAMBDA #1=(CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM))) (DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS))))))) (CORE:FSET 'CORE::DESTRUCTURE #:G61120 NIL T '#1#) (CORE:SET-SOURCE-INFO #:G61120 '(CORE:CURRENT-SOURCE-FILE 0 1234 0)) (SETQ COMPILER:*CURRENT-FORM-LINENO* 1234) 'CORE::DESTRUCTURE)> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)
  857. 856 CONVERT-LET
  858. 857 ({CONVERT-SPECIAL (((EQL (QUOTE LET)) T T T))} #<VA-LIST: (LET #<CONS-CST raw: (LET ((#:G61120 #'(LAMBDA #1=(CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM))) (DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS))))))) (CORE:FSET 'CORE::DESTRUCTURE #:G61120 NIL T '#1#) (CORE:SET-SOURCE-INFO #:G61120 '(CORE:CURRENT-SOURCE-FILE 0 1234 0)) (SETQ COMPILER:*CURRENT-FORM-LINENO* 1234) 'CORE::DESTRUCTURE)> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  859. 858 (FUNCALL #<COMPILED-CLOSURE@0x1104eb2a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0> #<VA-LIST: (LET #<CONS-CST raw: (LET ((#:G61120 #'(LAMBDA #1=(CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM))) (DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS))))))) (CORE:FSET 'CORE::DESTRUCTURE #:G61120 NIL T '#1#) (CORE:SET-SOURCE-INFO #:G61120 '(CORE:CURRENT-SOURCE-FILE 0 1234 0)) (SETQ COMPILER:*CURRENT-FORM-LINENO* 1234) 'CORE::DESTRUCTURE)> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  860. 859 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (LET #<CONS-CST raw: (LET ((#:G61120 #'(LAMBDA #1=(CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM))) (DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS))))))) (CORE:FSET 'CORE::DESTRUCTURE #:G61120 NIL T '#1#) (CORE:SET-SOURCE-INFO #:G61120 '(CORE:CURRENT-SOURCE-FILE 0 1234 0)) (SETQ COMPILER:*CURRENT-FORM-LINENO* 1234) 'CORE::DESTRUCTURE)> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1104eb2a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0>))
  861. 860 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318 (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (LET #<CONS-CST raw: (LET ((#:G61120 #'(LAMBDA #1=(CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM))) (DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS))))))) (CORE:FSET 'CORE::DESTRUCTURE #:G61120 NIL T '#1#) (CORE:SET-SOURCE-INFO #:G61120 '(CORE:CURRENT-SOURCE-FILE 0 1234 0)) (SETQ COMPILER:*CURRENT-FORM-LINENO* 1234) 'CORE::DESTRUCTURE)> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1104eb2a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0>))
  862. 861 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (LET #<CONS-CST raw: (LET ((#:G61120 #'(LAMBDA #1=(CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM))) (DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS))))))) (CORE:FSET 'CORE::DESTRUCTURE #:G61120 NIL T '#1#) (CORE:SET-SOURCE-INFO #:G61120 '(CORE:CURRENT-SOURCE-FILE 0 1234 0)) (SETQ COMPILER:*CURRENT-FORM-LINENO* 1234) 'CORE::DESTRUCTURE)> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  863. 862 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: (LET ((#:G61120 #'(LAMBDA #1=(CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM))) (DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS))))))) (CORE:FSET 'CORE::DESTRUCTURE #:G61120 NIL T '#1#) (CORE:SET-SOURCE-INFO #:G61120 '(CORE:CURRENT-SOURCE-FILE 0 1234 0)) (SETQ COMPILER:*CURRENT-FORM-LINENO* 1234) 'CORE::DESTRUCTURE)> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)
  864. 863 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (LET ((#:G61120 #'(LAMBDA #1=(CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM))) (DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS))))))) (CORE:FSET 'CORE::DESTRUCTURE #:G61120 NIL T '#1#) (CORE:SET-SOURCE-INFO #:G61120 '(CORE:CURRENT-SOURCE-FILE 0 1234 0)) (SETQ COMPILER:*CURRENT-FORM-LINENO* 1234) 'CORE::DESTRUCTURE)> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  865. 864 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (LET ((#:G61120 #'(LAMBDA #1=(CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM))) (DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS))))))) (CORE:FSET 'CORE::DESTRUCTURE #:G61120 NIL T '#1#) (CORE:SET-SOURCE-INFO #:G61120 '(CORE:CURRENT-SOURCE-FILE 0 1234 0)) (SETQ COMPILER:*CURRENT-FORM-LINENO* 1234) 'CORE::DESTRUCTURE)> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  866. 865 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (LET ((#:G61120 #'(LAMBDA #1=(CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM))) (DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS))))))) (CORE:FSET 'CORE::DESTRUCTURE #:G61120 NIL T '#1#) (CORE:SET-SOURCE-INFO #:G61120 '(CORE:CURRENT-SOURCE-FILE 0 1234 0)) (SETQ COMPILER:*CURRENT-FORM-LINENO* 1234) 'CORE::DESTRUCTURE)> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  867. 866 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8 (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (LET ((#:G61120 #'(LAMBDA #1=(CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM))) (DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS))))))) (CORE:FSET 'CORE::DESTRUCTURE #:G61120 NIL T '#1#) (CORE:SET-SOURCE-INFO #:G61120 '(CORE:CURRENT-SOURCE-FILE 0 1234 0)) (SETQ COMPILER:*CURRENT-FORM-LINENO* 1234) 'CORE::DESTRUCTURE)> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  868. 867 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (LET ((#:G61120 #'(LAMBDA #1=(CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM))) (DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS))))))) (CORE:FSET 'CORE::DESTRUCTURE #:G61120 NIL T '#1#) (CORE:SET-SOURCE-INFO #:G61120 '(CORE:CURRENT-SOURCE-FILE 0 1234 0)) (SETQ COMPILER:*CURRENT-FORM-LINENO* 1234) 'CORE::DESTRUCTURE)> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  869. 868 CONVERT
  870. 869 (CONVERT-SEQUENCE #<CONS-CST raw: ((EVAL-WHEN (:COMPILE-TOPLEVEL) (COMPILER:REGISTER-GLOBAL-FUNCTION-DEF 'DEFUN 'CORE::DESTRUCTURE)) (LET ((#:G61120 #'(LAMBDA #1=(CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM))) (DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS))))))) (CORE:FSET 'CORE::DESTRUCTURE #:G61120 NIL T '#1#) (CORE:SET-SOURCE-INFO #:G61120 '(CORE:CURRENT-SOURCE-FILE 0 1234 0)) (SETQ COMPILER:*CURRENT-FORM-LINENO* 1234) 'CORE::DESTRUCTURE))> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)
  871. 870 ({CONVERT-SPECIAL (((EQL (QUOTE PROGN)) T T T))} #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (EVAL-WHEN (:COMPILE-TOPLEVEL) (COMPILER:REGISTER-GLOBAL-FUNCTION-DEF 'DEFUN 'CORE::DESTRUCTURE)) (LET ((#:G61120 #'(LAMBDA #1=(CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM))) (DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS))))))) (CORE:FSET 'CORE::DESTRUCTURE #:G61120 NIL T '#1#) (CORE:SET-SOURCE-INFO #:G61120 '(CORE:CURRENT-SOURCE-FILE 0 1234 0)) (SETQ COMPILER:*CURRENT-FORM-LINENO* 1234) 'CORE::DESTRUCTURE))> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  872. 871 (FUNCALL #<COMPILED-CLOSURE@0x1106119a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0> #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (EVAL-WHEN (:COMPILE-TOPLEVEL) (COMPILER:REGISTER-GLOBAL-FUNCTION-DEF 'DEFUN 'CORE::DESTRUCTURE)) (LET ((#:G61120 #'(LAMBDA #1=(CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM))) (DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS))))))) (CORE:FSET 'CORE::DESTRUCTURE #:G61120 NIL T '#1#) (CORE:SET-SOURCE-INFO #:G61120 '(CORE:CURRENT-SOURCE-FILE 0 1234 0)) (SETQ COMPILER:*CURRENT-FORM-LINENO* 1234) 'CORE::DESTRUCTURE))> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  873. 872 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (EVAL-WHEN (:COMPILE-TOPLEVEL) (COMPILER:REGISTER-GLOBAL-FUNCTION-DEF 'DEFUN 'CORE::DESTRUCTURE)) (LET ((#:G61120 #'(LAMBDA #1=(CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM))) (DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS))))))) (CORE:FSET 'CORE::DESTRUCTURE #:G61120 NIL T '#1#) (CORE:SET-SOURCE-INFO #:G61120 '(CORE:CURRENT-SOURCE-FILE 0 1234 0)) (SETQ COMPILER:*CURRENT-FORM-LINENO* 1234) 'CORE::DESTRUCTURE))> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1106119a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0>))
  874. 873 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318 (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (EVAL-WHEN (:COMPILE-TOPLEVEL) (COMPILER:REGISTER-GLOBAL-FUNCTION-DEF 'DEFUN 'CORE::DESTRUCTURE)) (LET ((#:G61120 #'(LAMBDA #1=(CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM))) (DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS))))))) (CORE:FSET 'CORE::DESTRUCTURE #:G61120 NIL T '#1#) (CORE:SET-SOURCE-INFO #:G61120 '(CORE:CURRENT-SOURCE-FILE 0 1234 0)) (SETQ COMPILER:*CURRENT-FORM-LINENO* 1234) 'CORE::DESTRUCTURE))> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1106119a8 (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0>))
  875. 874 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (EVAL-WHEN (:COMPILE-TOPLEVEL) (COMPILER:REGISTER-GLOBAL-FUNCTION-DEF 'DEFUN 'CORE::DESTRUCTURE)) (LET ((#:G61120 #'(LAMBDA #1=(CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM))) (DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS))))))) (CORE:FSET 'CORE::DESTRUCTURE #:G61120 NIL T '#1#) (CORE:SET-SOURCE-INFO #:G61120 '(CORE:CURRENT-SOURCE-FILE 0 1234 0)) (SETQ COMPILER:*CURRENT-FORM-LINENO* 1234) 'CORE::DESTRUCTURE))> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  876. 875 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: (PROGN (EVAL-WHEN (:COMPILE-TOPLEVEL) (COMPILER:REGISTER-GLOBAL-FUNCTION-DEF 'DEFUN 'CORE::DESTRUCTURE)) (LET ((#:G61120 #'(LAMBDA #1=(CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM))) (DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS))))))) (CORE:FSET 'CORE::DESTRUCTURE #:G61120 NIL T '#1#) (CORE:SET-SOURCE-INFO #:G61120 '(CORE:CURRENT-SOURCE-FILE 0 1234 0)) (SETQ COMPILER:*CURRENT-FORM-LINENO* 1234) 'CORE::DESTRUCTURE))> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)
  877. 876 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (PROGN (EVAL-WHEN (:COMPILE-TOPLEVEL) (COMPILER:REGISTER-GLOBAL-FUNCTION-DEF 'DEFUN 'CORE::DESTRUCTURE)) (LET ((#:G61120 #'(LAMBDA #1=(CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM))) (DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS))))))) (CORE:FSET 'CORE::DESTRUCTURE #:G61120 NIL T '#1#) (CORE:SET-SOURCE-INFO #:G61120 '(CORE:CURRENT-SOURCE-FILE 0 1234 0)) (SETQ COMPILER:*CURRENT-FORM-LINENO* 1234) 'CORE::DESTRUCTURE))> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  878. 877 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (PROGN (EVAL-WHEN (:COMPILE-TOPLEVEL) (COMPILER:REGISTER-GLOBAL-FUNCTION-DEF 'DEFUN 'CORE::DESTRUCTURE)) (LET ((#:G61120 #'(LAMBDA #1=(CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM))) (DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS))))))) (CORE:FSET 'CORE::DESTRUCTURE #:G61120 NIL T '#1#) (CORE:SET-SOURCE-INFO #:G61120 '(CORE:CURRENT-SOURCE-FILE 0 1234 0)) (SETQ COMPILER:*CURRENT-FORM-LINENO* 1234) 'CORE::DESTRUCTURE))> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  879. 878 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (PROGN (EVAL-WHEN (:COMPILE-TOPLEVEL) (COMPILER:REGISTER-GLOBAL-FUNCTION-DEF 'DEFUN 'CORE::DESTRUCTURE)) (LET ((#:G61120 #'(LAMBDA #1=(CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM))) (DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS))))))) (CORE:FSET 'CORE::DESTRUCTURE #:G61120 NIL T '#1#) (CORE:SET-SOURCE-INFO #:G61120 '(CORE:CURRENT-SOURCE-FILE 0 1234 0)) (SETQ COMPILER:*CURRENT-FORM-LINENO* 1234) 'CORE::DESTRUCTURE))> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  880. 879 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8 (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (PROGN (EVAL-WHEN (:COMPILE-TOPLEVEL) (COMPILER:REGISTER-GLOBAL-FUNCTION-DEF 'DEFUN 'CORE::DESTRUCTURE)) (LET ((#:G61120 #'(LAMBDA #1=(CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM))) (DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS))))))) (CORE:FSET 'CORE::DESTRUCTURE #:G61120 NIL T '#1#) (CORE:SET-SOURCE-INFO #:G61120 '(CORE:CURRENT-SOURCE-FILE 0 1234 0)) (SETQ COMPILER:*CURRENT-FORM-LINENO* 1234) 'CORE::DESTRUCTURE))> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  881. 880 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (PROGN (EVAL-WHEN (:COMPILE-TOPLEVEL) (COMPILER:REGISTER-GLOBAL-FUNCTION-DEF 'DEFUN 'CORE::DESTRUCTURE)) (LET ((#:G61120 #'(LAMBDA #1=(CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM))) (DECLARE (CORE:LAMBDA-NAME CORE::DESTRUCTURE CORE:CURRENT-SOURCE-FILE 0 1234 0) (SPECIAL CORE::*ARG-CHECK*) (SPECIAL CORE::*DL*)) (BLOCK CORE::DESTRUCTURE (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS))))))) (CORE:FSET 'CORE::DESTRUCTURE #:G61120 NIL T '#1#) (CORE:SET-SOURCE-INFO #:G61120 '(CORE:CURRENT-SOURCE-FILE 0 1234 0)) (SETQ COMPILER:*CURRENT-FORM-LINENO* 1234) 'CORE::DESTRUCTURE))> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  882. 881 CONVERT
  883. 882 ({CONVERT-CST ((T GLOBAL-MACRO-INFO T T))} #<CONS-CST raw: (DEFUN CORE::DESTRUCTURE (CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM))) (DECLARE (CORE:C-LOCAL) (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS))))> #<CLEAVIR-ENVIRONMENT:GLOBAL-MACRO-INFO> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)
  884. 883 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (DEFUN CORE::DESTRUCTURE (CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM))) (DECLARE (CORE:C-LOCAL) (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS))))> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  885. 884 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (DEFUN CORE::DESTRUCTURE (CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM))) (DECLARE (CORE:C-LOCAL) (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS))))> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  886. 885 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (DEFUN CORE::DESTRUCTURE (CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM))) (DECLARE (CORE:C-LOCAL) (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS))))> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  887. 886 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8 (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (DEFUN CORE::DESTRUCTURE (CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM))) (DECLARE (CORE:C-LOCAL) (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS))))> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8 (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  888. 887 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (DEFUN CORE::DESTRUCTURE (CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM))) (DECLARE (CORE:C-LOCAL) (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS))))> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  889. 888 CONVERT
  890. 889 (CST-TO-AST #<CONS-CST raw: (DEFUN CORE::DESTRUCTURE (CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM))) (DECLARE (CORE:C-LOCAL) (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS))))> NIL #<CLASP-CLEAVIR::CLASP-64BIT>)
  891. 890 (COMPILE-CST-OR-FORM-TO-MIR #<CONS-CST raw: (DEFUN CORE::DESTRUCTURE (CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM))) (DECLARE (CORE:C-LOCAL) (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS))))> NIL)
  892. 891 (COMPILE-CST-OR-FORM #<CONS-CST raw: (DEFUN CORE::DESTRUCTURE (CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM))) (DECLARE (CORE:C-LOCAL) (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS))))> NIL)
  893. 892 (FUNCALL #<COMPILED-CLOSURE@0x1180f0d98 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x113692740>)
  894. 893 (DO-LTV :TOPLEVEL #<COMPILED-CLOSURE@0x1180f0d98 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x113692740>)
  895. 894 (CLEAVIR-COMPILE-FILE-CST-OR-FORM #<CONS-CST raw: (DEFUN CORE::DESTRUCTURE (CORE::VL CORE::MACRO &OPTIONAL CORE::MACRO-NAME &AUX (CORE::BASIS-FORM (GENSYM)) (CORE::DESTRUCTURE-SYMBOLS (LIST CORE::BASIS-FORM))) (DECLARE (CORE:C-LOCAL) (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (LABELS ((CORE::TEMPSYM NIL (LET ((CORE::X (GENSYM))) (PUSH CORE::X CORE::DESTRUCTURE-SYMBOLS) CORE::X)) (CORE::DM-VL (CORE::VL CORE::WHOLE CORE::MACRO) (MULTIPLE-VALUE-BIND (CORE::REQS CORE::OPTS REST CORE::KEY-FLAG CORE:KEYS CORE:ALLOW-OTHER-KEYS CORE::AUXS) (CORE:PROCESS-LAMBDA-LIST CORE::VL (IF CORE::MACRO 'CORE::MACRO 'DESTRUCTURING-BIND)) (LET* ((CORE:POINTER (CORE::TEMPSYM)) (CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))) (CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))) (CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))) (CORE::NO-CHECK NIL) (CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))) CORE::ALL-KEYWORDS) (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) (CORE::DM-V (CORE::V CORE::INIT) (COND ((AND CORE::V (SYMBOLP CORE::V)) (LET ((CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::V CORE::INIT) CORE::V))) (PUSH CORE::PUSH-VAL CORE::*DL*))) ((AND CORE::V (ATOM CORE::V)) (ERROR "destructure: ~A is not a list nor a symbol" CORE::V)) ((EQ (FIRST CORE::V) '&WHOLE) (LET ((CORE::WHOLE-VAR (SECOND CORE::V))) (IF (LISTP CORE::WHOLE-VAR) (LET ((CORE::NEW-WHOLE (CORE::TEMPSYM))) (CORE::DM-V CORE::NEW-WHOLE CORE::INIT) (CORE::DM-VL CORE::WHOLE-VAR CORE::NEW-WHOLE NIL) (SETQ CORE::WHOLE-VAR CORE::NEW-WHOLE)) (CORE::DM-V CORE::WHOLE-VAR CORE::INIT)) (CORE::DM-VL (CDDR CORE::V) CORE::WHOLE-VAR NIL))) (T (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::PUSH-VAL (IF CORE::INIT (LIST CORE::TEMP CORE::INIT) CORE::TEMP))) (PUSH CORE::PUSH-VAL CORE::*DL*) (CORE::DM-VL CORE::V CORE::TEMP NIL)))))) (LET* ((CORE::WHOLE CORE::BASIS-FORM) (CORE::*DL* NIL) (CORE::*ARG-CHECK* NIL)) (DECLARE (SPECIAL CORE::*DL* CORE::*ARG-CHECK*)) (COND ((LISTP CORE::VL) (WHEN (EQ (FIRST CORE::VL) '&WHOLE) (LET ((CORE::NAMED-WHOLE (SECOND CORE::VL))) (SETQ CORE::VL (CDDR CORE::VL)) (IF (LISTP CORE::NAMED-WHOLE) (CORE::DM-VL CORE::NAMED-WHOLE CORE::WHOLE NIL) (SETQ CORE::*DL* (LIST (LIST CORE::NAMED-WHOLE CORE::WHOLE))))))) ((SYMBOLP CORE::VL) (SETQ CORE::VL (LIST '&REST CORE::VL))) (T (ERROR "The destructuring-lambda-list ~s is not a list." CORE::VL))) (VALUES (CORE::DM-VL CORE::VL CORE::WHOLE CORE::MACRO) CORE::WHOLE (NREVERSE CORE::*DL*) CORE::*ARG-CHECK* CORE::DESTRUCTURE-SYMBOLS))))> NIL)
  896. 895 (CCLASP-LOOP-READ-AND-COMPILE-FILE-FORMS #<IOSTREAM-STREAM #P"/Users/meister/Development/cst-clasp/src/lisp/kernel/lsp/defmacro.lsp" file-pos 9064> NIL)
  897. 896 (FUNCALL CLASP-CLEAVIR::CCLASP-LOOP-READ-AND-COMPILE-FILE-FORMS #<IOSTREAM-STREAM #P"/Users/meister/Development/cst-clasp/src/lisp/kernel/lsp/defmacro.lsp" file-pos 9064> NIL)
  898. 897 (LOOP-READ-AND-COMPILE-FILE-FORMS #<IOSTREAM-STREAM #P"/Users/meister/Development/cst-clasp/src/lisp/kernel/lsp/defmacro.lsp" file-pos 9064> NIL CLASP-CLEAVIR::CCLASP-LOOP-READ-AND-COMPILE-FILE-FORMS)
  899. 898 (LAMBDA
  900. 899 (FUNCALL #<COMPILED-CLOSURE@0x1183aaa88 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10b002a50>)
  901. 900 (DO-LITERAL-TABLE #<COMPILED-CLOSURE@0x1183aaa88 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10b002a50>)
  902. 901 (LAMBDA
  903. 902 (MULTIPLE-VALUE-PROG1-FUNCTION #<COMPILED-CLOSURE@0x1183aad98 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10b001c80> #<COMPILED-CLOSURE@0x1183aad28 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10b002240>)
  904. 903 (FUNCALL CORE:MULTIPLE-VALUE-PROG1-FUNCTION #<COMPILED-CLOSURE@0x1183aad98 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10b001c80> #<COMPILED-CLOSURE@0x1183aad28 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10b002240>)
  905. 904 (LAMBDA
  906. 905 (MULTIPLE-VALUE-PROG1-FUNCTION #<COMPILED-CLOSURE@0x1183aae78 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10b001740> #<COMPILED-CLOSURE@0x1183aae08 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10b001af0>)
  907. 906 (FUNCALL CORE:MULTIPLE-VALUE-PROG1-FUNCTION #<COMPILED-CLOSURE@0x1183aae78 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10b001740> #<COMPILED-CLOSURE@0x1183aae08 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10b001af0>)
  908. 907 (LAMBDA "" "-unknown-file-" 0 0 0)
  909. 908 (LAMBDA
  910. 909 (FUNWIND-PROTECT #<COMPILED-CLOSURE@0x1181d3078 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10afe0de0> #<COMPILED-CLOSURE@0x1181d3008 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10afe3f80>)
  911. 910 (LAMBDA
  912. 911 (MULTIPLE-VALUE-PROG1-FUNCTION #<COMPILED-CLOSURE@0x1181d3158 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10afdd5c0> #<COMPILED-CLOSURE@0x1181d30e8 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10afe0c50>)
  913. 912 (FUNCALL CORE:MULTIPLE-VALUE-PROG1-FUNCTION #<COMPILED-CLOSURE@0x1181d3158 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10afdd5c0> #<COMPILED-CLOSURE@0x1181d30e8 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10afe0c50>)
  914. 913 (LAMBDA
  915. 914 (MULTIPLE-VALUE-PROG1-FUNCTION #<COMPILED-CLOSURE@0x1181d3238 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10afdcf10> #<COMPILED-CLOSURE@0x1181d31c8 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10afdd2a0>)
  916. 915 (FUNCALL CORE:MULTIPLE-VALUE-PROG1-FUNCTION #<COMPILED-CLOSURE@0x1181d3238 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10afdcf10> #<COMPILED-CLOSURE@0x1181d31c8 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10afdd2a0>)
  917. 916 (LAMBDA
  918. 917 (FUNCALL #<COMPILED-CLOSURE@0x1181d32a8 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10afdc630>)
  919. 918 (DO-COMPILATION-UNIT #<COMPILED-CLOSURE@0x1181d32a8 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10afdc630>)
  920. 919 (LAMBDA
  921. 920 (FUNCALL #<COMPILED-CLOSURE@0x1181d33f8 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10afdc3b0>)
  922. 921 (LAMBDA
  923. 922 (FUNWIND-PROTECT #<COMPILED-CLOSURE@0x1181d3388 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10b00f4b0> #<COMPILED-CLOSURE@0x1181d3318 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10b00f700>)
  924. 923 (DO-ONE-SOURCE-DATABASE #<COMPILED-CLOSURE@0x1181d33f8 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10afdc3b0>)
  925. 924 (DO-ONE-SOURCE-DATABASE #<COMPILED-CLOSURE@0x1181d33f8 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10afdc3b0>)
  926. 925 (LAMBDA
  927. 926 (FUNWIND-PROTECT #<COMPILED-CLOSURE@0x1181d34d8 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10afdbce0> #<COMPILED-CLOSURE@0x1181d3468 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10afdc160>)
  928. 927 (COMPILE-FILE-TO-MODULE #P"/Users/meister/Development/cst-clasp/src/lisp/kernel/lsp/defmacro.lsp" :TYPE :KERNEL :SOURCE-DEBUG-NAMESTRING NIL :SOURCE-DEBUG-OFFSET 0 :COMPILE-FILE-HOOK CLASP-CLEAVIR::CCLASP-LOOP-READ-AND-COMPILE-FILE-FORMS :ENVIRONMENT NIL :OPTIMIZE T :OPTIMIZE-LEVEL :|-O3|)
  929. 928 (LAMBDA
  930. 929 (FUNWIND-PROTECT #<COMPILED-CLOSURE@0x1181d3698 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10afd8460> #<COMPILED-CLOSURE@0x1181d3628 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10afd9aa0>)
  931. 930 (LAMBDA
  932. 931 (FUNCALL #<COMPILED-CLOSURE@0x1181d3708 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10afd81b0>)
  933. 932 (DO-COMPILATION-UNIT #<COMPILED-CLOSURE@0x1181d3708 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10afd81b0>)
  934. 933 (COMPILE-FILE #P"/Users/meister/Development/cst-clasp/src/lisp/kernel/lsp/defmacro.lsp" :OUTPUT-FILE #P"/Users/meister/Development/cst-clasp/build/boehm/fasl/cclasp-boehm-bitcode/src/lisp/kernel/lsp/defmacro.bc" :OUTPUT-TYPE :BITCODE :PRINT T :VERBOSE NIL :OUTPUT-TYPE :BITCODE :TYPE :KERNEL)
  935. 934 (APPLY #<COMPILED-CLOSURE@0x10bedb4d8 COMPILE-FILE :ftype :FUNCTION lambda-list: (INPUT-FILE &KEY (OUTPUT-FILE NIL OUTPUT-FILE-P) (VERBOSE *COMPILE-VERBOSE*) (PRINT *COMPILE-PRINT*) (OPTIMIZE T) (OPTIMIZE-LEVEL :-O3) (SYSTEM-P NIL SYSTEM-P-P) (EXTERNAL-FORMAT :DEFAULT) SOURCE-DEBUG-NAMESTRING (SOURCE-DEBUG-OFFSET 0) (OUTPUT-TYPE :FASL) (TYPE :USER) ENVIRONMENT &AUX CONDITIONS) :fptr 0x10afd7430> #P"/Users/meister/Development/cst-clasp/src/lisp/kernel/lsp/defmacro.lsp" :OUTPUT-FILE #P"/Users/meister/Development/cst-clasp/build/boehm/fasl/cclasp-boehm-bitcode/src/lisp/kernel/lsp/defmacro.bc" :OUTPUT-TYPE :BITCODE :PRINT T :VERBOSE NIL :OUTPUT-TYPE :BITCODE :TYPE :KERNEL NIL)
  936. 935 (COMPILE-KERNEL-FILE #P"src/lisp/kernel/lsp/defmacro" :RELOAD NIL :OUTPUT-TYPE :BITCODE :COUNTER 1 :TOTAL-FILES 379)
  937. 936 (FUNCALL #<COMPILED-CLOSURE@0x1181d3938 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10d4af820>)
  938. 937 (DO-COMPILATION-UNIT #<COMPILED-CLOSURE@0x1181d3938 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10d4af820>)
  939. 938 (COMPILE-SYSTEM (#P"src/lisp/kernel/lsp/defmacro" #P"src/lisp/kernel/lsp/helpfile" #P"src/lisp/kernel/lsp/evalmacros" #P"src/lisp/kernel/lsp/claspmacros" #P"src/lisp/kernel/lsp/source-transformations" #P"src/lisp/kernel/lsp/testing" #P"src/lisp/kernel/lsp/arraylib" #P"src/lisp/kernel/lsp/setf" #P"src/lisp/kernel/lsp/listlib" #P"src/lisp/kernel/lsp/mislib" #P"src/lisp/kernel/lsp/defstruct" #P"src/lisp/kernel/lsp/predlib" #P"src/lisp/kernel/lsp/cdr-5" #P"src/lisp/kernel/lsp/seq" #P"src/lisp/kernel/lsp/cmuutil" #P"src/lisp/kernel/lsp/seqmacros" ...) :RELOAD NIL)
  940. 939 (COMPILE-CCLASP* #P"/Users/meister/Development/cst-clasp/build/boehm/fasl/cclasp-boehm-common-lisp.bc" (#P"src/lisp/kernel/tag/start" #P"src/lisp/kernel/lsp/prologue" #P"src/lisp/kernel/lsp/direct-calls" #P"generated/cl-wrappers" #P"src/lisp/kernel/tag/min-start" #P"src/lisp/kernel/init" #P"src/lisp/kernel/tag/after-init" #P"src/lisp/kernel/cmp/runtime-info" #P"src/lisp/kernel/cmp/jit-setup" #P"src/lisp/kernel/clsymbols" #P"src/lisp/kernel/lsp/packages" #P"src/lisp/kernel/lsp/foundation" #P"src/lisp/kernel/lsp/export" #P"src/lisp/kernel/lsp/defmacro" #P"src/lisp/kernel/lsp/helpfile" #P"src/lisp/kernel/lsp/evalmacros" ...))
  941. 940 (FUNCALL #<COMPILED-CLOSURE@0x10cc812a8 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10d515c70>)
  942. 941 (LAMBDA
  943. 942 (MULTIPLE-VALUE-PROG1-FUNCTION #<COMPILED-CLOSURE@0x10cc811c8 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10b3b2130> #<COMPILED-CLOSURE@0x10cc810e8 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10b3b2380>)
  944. 943 (FUNCALL CORE:MULTIPLE-VALUE-PROG1-FUNCTION #<COMPILED-CLOSURE@0x10cc811c8 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10b3b2130> #<COMPILED-CLOSURE@0x10cc810e8 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10b3b2380>)
  945. 944 (DO-TIME #<COMPILED-CLOSURE@0x10cc812a8 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10d515c70>)
  946. 945 (COMPILE-CCLASP :OUTPUT-FILE #P"/Users/meister/Development/cst-clasp/build/boehm/fasl/cclasp-boehm-common-lisp.bc")
  947. 946 (FUNCALL #<COMPILED-CLOSURE@0x10cc81388 FROM-BCLASP-IMPLICIT-COMPILE-REPL-FORM^COMPILER^FN^^ :ftype :FUNCTION lambda-list: NIL :fptr 0x10d528000>)
  948. 947 (LAMBDA #<COMPILED-CLOSURE@0x10cc81388 FROM-BCLASP-IMPLICIT-COMPILE-REPL-FORM^COMPILER^FN^^ :ftype :FUNCTION lambda-list: NIL :fptr 0x10d528000> NIL NIL)
  949. 948 (LAMBDA
  950. 949 (FUNCALL #<COMPILED-CLOSURE@0x10cfe5468 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10afa85e0>)
  951. 950 (DO-COMPILATION-UNIT #<COMPILED-CLOSURE@0x10cfe5468 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10afa85e0>)
  952. 951 (LAMBDA
  953. 952 (FUNWIND-PROTECT #<COMPILED-CLOSURE@0x10cfe53f8 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10b00d750> #<COMPILED-CLOSURE@0x10cfe5388 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10b00d9a0>)
  954. 953 (DO-COMPILATION-UNIT #<COMPILED-CLOSURE@0x10cfe5468 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10afa85e0> :OVERRIDE NIL)
  955. 954 (LAMBDA
  956. 955 (FUNWIND-PROTECT #<COMPILED-CLOSURE@0x10cfe55b8 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10afa7fe0> #<COMPILED-CLOSURE@0x10cfe5548 LAMBDA :ftype :FUNCTION lambda-list: NIL :fptr 0x10afa8450>)
  957. 956 (CMP-REPL-IMPLICIT-COMPILE (CORE:COMPILE-CCLASP :OUTPUT-FILE #P"/Users/meister/Development/cst-clasp/build/boehm/fasl/cclasp-boehm-common-lisp.bc") NIL)
  958. 957 (EVAL (CORE:COMPILE-CCLASP :OUTPUT-FILE #P"/Users/meister/Development/cst-clasp/build/boehm/fasl/cclasp-boehm-common-lisp.bc"))
  959. 958 (LAMBDA (:EVAL . "(core:compile-cclasp :output-file #P\"/Users/meister/Development/cst-clasp/build/boehm/fasl/cclasp-boehm-common-lisp.bc\")"))
  960. 959 (MAPCAR #<COMPILED-CLOSURE@0x10cb418c8 LAMBDA :ftype :FUNCTION lambda-list: (ENTRY) :fptr 0x10b4ac960> ((:EVAL . "(load \"sys:kernel;clasp-builder.lsp\")") (:EVAL . "(core:compile-cclasp :output-file #P\"/Users/meister/Development/cst-clasp/build/boehm/fasl/cclasp-boehm-common-lisp.bc\")") (:EVAL . "(core:quit)")))
  961. 960 PROCESS-COMMAND-LINE-LOAD-EVAL-SEQUENCE
  962. NIL
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!