8 Apr
2015
8 Apr
'15
10:57 p.m.
On 3/21/14, 4:48, Douglas Katzman wrote:
(eval-when (:compile-toplevel :load-toplevel :execute) (defvar *count* 0) (macrolet ((something (sym) `(setf (get ,sym 'uniqueid) (incf *count*)))) (defun register-it (x) (something x)))) (eval-when (:compile-toplevel :execute) (format t "~&OK so far~%") (register-it :foo)) (eval-when (:compile-toplevel :execute) (format t "~&Got ~D~%" (symbol-plist :foo)))
Confirmed and filed as [ticket-351][]. Thanks for the bug report.
[ticket-351]: http://abcl.org/trac/ticket/351
--
"A screaming comes across the sky. It has happened before, but there
is nothing to compare to it now."