Custom Query (1030 matches)

MacBook Pro (early 2011) Yosemite Xcode 6.1 currently running Lisp Version 1.10-r16196 (DarwinX8664) Here is the essence of what happens:

? (rebuild-ccl :full t)

... ;Wrote bootstrapping image: #P"/Users/brooks/lisp/ccl-1.10/x86-boot64.image" ;Building lisp-kernel ...

Error: Error(s) during kernel compilation.

gm4 -DDARWIN -DX86 -DX8664 -DTCR_IN_GPR -I../ ../x86-spjump64.s | as -arch x86_64 -g -o x86-spjump64.o gm4 -DDARWIN -DX86 -DX8664 -DTCR_IN_GPR -I../ ../x86-spentry64.s | as -arch x86_64 -g -o x86-spentry64.o gm4 -DDARWIN -DX86 -DX8664 -DTCR_IN_GPR -I../ ../x86-subprims64.s | as -arch x86_64 -g -o x86-subprims64.o gm4 -DDARWIN -DX86 -DX8664 -DTCR_IN_GPR -I../ ../imports.s | as -arch x86_64 -g -o imports.o cc -include ../platform-darwinx8664.h -c ../pmcl-kernel.c -arch x86_64 -DDARWIN -DX86 -DX8664 -DTCR_IN_GPR -DSVN_REVISION="16302" -D_DARWIN_NO_64_BIT_INODE -DUSE_DTRACE \

-g -O -Wno-format \

-I. -mmacosx-version-min=10.6 -isysroot / -o pmcl-kernel.o

In file included from <built-in>:170: In file included from <command line>:8: ../platform-darwinx8664.h:24:10: fatal error: 'sys/signal.h' file not found #include <sys/signal.h>

CCL doesn't seem to call the make-load-form method for NAME in this example:

(in-package cl-user)

(eval-when (:compile-toplevel :load-toplevel)
  (defparameter *names* (make-hash-table))
  (defstruct name sym)
  (defmethod make-load-form ((o name) &optional env)
    (declare (ignore env))
    (let ((sym (name-sym o)))
      (format *trace-output* "make-load-form for name called: ~s~%" sym)
      `(or (gethash ',sym *names*)
	   (error "Name not defined: ~s" ',sym)))))

'#.(make-name :sym 'some-undefined-name)

The output is

shell> ccl -e '(load (compile-file "x.lisp") :verbose t)'
;Loading #P"/tmp/x.lx32fsl"...
Welcome to Clozure Common Lisp Version 1.11-dev-r16447M-trunk  (Linuxx8632)!

CCL is developed and maintained by Clozure Associates. For more information
about CCL visit http://ccl.clozure.com.  To enquire about Clozure's Common Lisp
consulting services e-mail info@clozure.com or visit http://www.clozure.com.

? 

but I would expect that it prints something about make-load-form being called.

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?