Custom Query (1030 matches)

cl:load should bind cl:compile-file-pathname to NIL but it does not, this causes the following to break:

(eval-when (:compile-toplevel :load-toplevel)

(asdf:load-system :iolib))

During a call to compile-file, *compile-file-pathname* is bound... At other times, the value of these variables is ni. cl:load should bind cl:compile-file-pathname to NIL

Because of this bug, the following fails:

(eval-when (:compile-toplevel :load-toplevel)

(asdf:load-system :iolib))

The bug is exhibited in the following test code. To run it save it to a file, load it and then evaluate the TEST-IT function. I have tested this with the binary x8664 version for 1.2-rc1.

Basically I am generating a class called BAR with 600 direct slots which derives from FOO with the BAR-GENERATOR macro. If BAR has 6 slots, then the test case works as it should.

;;; Start of test case

(in-package :cl-user)

(defclass foo ()

((foo-slot :accessor foo-slot)))

(defmacro bar-generator ()

`(defclass bar (foo)

,(loop for i from 0 to 600

for slot = (intern (format nil "BAR-SLOT-~A" i)) collect `(,slot :initform ,i))))

(bar-generator)

(defmethod initialize-instance :after ((x foo) &key)

(setf (foo-slot x) 42))

(defun test-it ()

(make-instance 'bar))

;;; End of test case