Commit 3e8d5788 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Make that loop work with SBCL, too.

parent 13cda919
......@@ -275,8 +275,9 @@
(concatenate 'string prefix slot-name-str)))
(intern accessor-name-str))
;; Provide this accessor.
:do (signal-provider accessor-name 'defun)
slot-init-value ; ignore
:do (progn
slot-init-value ; ignore
(signal-provider accessor-name 'defun))
;; Generate instrumentation for the accessor.
:collect (let ((temp (gensym)))
`(let ((,temp (function ,accessor-name)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment