Custom Query (1030 matches)

the code

(let ((stream *standard-output*) (*print-right-margin* 20))
  (pprint-logical-block (stream (list "item01" "item02" "item03" "item04")
                                :prefix "[" :suffix "]")
       (loop (princ (pprint-pop) stream)
         (pprint-exit-if-list-exhausted)
         (princ ", " stream) (pprint-newline :linear stream)))
  (terpri stream))

outputs: [item01, item02, item03, item04] which exceeds the right margin of 20. It should have output:

[item01, 
 item02, 
 item03, 
 item04]

instead.

Since the numerical value of a signal depends on the version of the posix standard and is thus different on different operating systems (e.g. SIGCONT is 19 on macOS but 18 on Linux (it might even be more complicated than that)), it's nice to be able to query the lisp compiler/interpreter for the number behind a name.

Allegro CL, CMU CL, ECL, and SBCL each provide such a mechanism (through constants or functions). It would be nice if so did Clozure CL.

Codebase has GET-COMPLES-{SINGLE, DOUBLE}-FLOAT again, as in http://trac.clozure.com/ccl/ticket/1270

$ grep -R "comples" * compiler/X86/x862.lisp: (! get-comples-single-float reg result-reg) compiler/X86/x862.lisp: (! get-comples-double-float reg result-reg)

Causing

Unknown vinsn: CCL::GET-COMPLES-DOUBLE-FLOAT

[Condition of type SIMPLE-ERROR]

Backtrace:

0: (CCL::NEED-VINSN-TEMPLATE CCL::GET-COMPLES-DOUBLE-FLOAT #<HASH-TABLE :TEST EQ size 600/687 #x3020001D16ED>)

Locals:

NAME = CCL::GET-COMPLES-DOUBLE-FLOAT TEMPLATES = #<HASH-TABLE :TEST EQ size 600/687 #x3020001D16ED>

1: (CCL::SELECT-VINSN CCL::GET-COMPLES-DOUBLE-FLOAT #<HASH-TABLE :TEST EQ size 600/687 #x3020001D16ED> (#<LREG 14 FPR {0}/COMPLEX-DOUBLE-FLOAT> #<LREG 8 GPR [6]/LISP>))

Locals:

TEMPLATE-OR-NAME = CCL::GET-COMPLES-DOUBLE-FLOAT TEMPLATE-HASH = #<HASH-TABLE :TEST EQ size 600/687 #x3020001D16ED> VREGS = (#<LREG 14 FPR {0}/COMPLEX-DOUBLE-FLOAT> #<LREG 8 GPR [6]/LISP>)

2: (CCL::%EMIT-VINSN #<VINSN-LIST #x302001B4638D> CCL::GET-COMPLES-DOUBLE-FLOAT #<HASH-TABLE :TEST EQ size 600/687 #x3020001D16ED> #<LREG 14 FPR {0}/COMPLEX-DOUBLE-FLOAT> #<LREG 8 GPR [6]/LISP>)

Locals:

VLIST = #<VINSN-LIST #x302001B4638D> NAME = CCL::GET-COMPLES-DOUBLE-FLOAT VINSN-TABLE = #<HASH-TABLE :TEST EQ size 600/687 #x3020001D16ED> VREGS = (#<LREG 14 FPR {0}/COMPLEX-DOUBLE-FLOAT> #<LREG 8 GPR [6]/LISP>)

etc etc