Custom Query (1030 matches)

Clozure Common Lisp Version 1.10-r16196 (DarwinX8664)

I just tried this example and it seems sub lists remain in new created closure, whereas they should be new values:

(defun closure-eg ()
  (let ((l1 '((a 0) (b 0))))
    (incf (second (assoc 'a l1)))
    l1))

run this function more than once, and the l1 binding is only shallow-recreated??

MY-PACKAGE> (closure-eg)
((A 1) (B 0))
MY-PACKAGE> (closure-eg)
((A 2) (B 0))
MY-PACKAGE> (closure-eg)
((A 3) (B 0))

the numbers in first list (A n) should always be 1, shouldn't they?

example code attached.

On windows Output of the read-line call is different depending on the line endings in the file, and currently only reading files with unix style line endings begets the appropriate behavior.

A file rvs-prune.txt consisting of -d 30 -r m:\dump\ because nothing can ever be easy

with windows line endings read by the attached function produces "-d 30 -r m:
dump

with mac "ecause nothing can ever be easy

with unix (expected output) "-d 30 -r m:
dump
"

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.