Custom Query (1030 matches)

Compiling a file containing:

(in-package :cl-user)

(define-symbol-macro foo t)

(defclass bar ()
  ((baz :initarg :baz))
  (:default-initargs :baz foo))

I get this:

;Compiling "/tmp/use-case.lisp"...
;Compiler warnings for "/tmp/use-case.lisp" :
;   In an anonymous lambda form inside an anonymous lambda form: Undeclared free variable FOO
;Loading #P"/tmp/use-case.lx32fsl"...

If I try to create an instance of BAR, I get an error "Unbound variable: FOO"

As noted in ​http://clozure.com/pipermail/openmcl-devel/2008-December/008794.html, the documentation refers to URLs of the form ".../trunk/platformx8664/ccl". The 32 and 64-bit x86 platforms are all consolidated in ".../trunk/platformx86/ccl"; the documentation should be updated and the old, stale URLs (and any x8632 trees in the trunk) should be removed.

Consider the following code, which is a simplified version of stuff that can be found in CL-Yacc:

(defstruct item x)
(defstruct (sub-item (:include item) (:conc-name item-)) y)

The ANSI CL spec explicitly states that this is allowed, in the description of :CONC-NAME in the description of DEFSTRUCT. However, CCL generates a warning:

;Compiler warnings for "/home/pps/jch/struct-test.lisp" :
;   In an anonymous lambda form at position 18: Duplicate definitions of ITEM-X, in this file

It would appear that CCL generates correct code, but I believe that this is by accident.