Commit bf252b06 authored by pfdietz's avatar pfdietz
Browse files

Fix bug in shared-initialize: slot-value isn't guaranteed to work on structures

parent 5265361b
......@@ -263,9 +263,12 @@
(c nil c-p)
&allow-other-keys)
(declare (ignore slots-to-init))
(when a-p (setf (slot-value obj 'a) a))
(when b-p (setf (slot-value obj 'b) b))
(when c-p (setf (slot-value obj 'c) c))
;; (when a-p (setf (slot-value obj 'a) a))
;; (when b-p (setf (slot-value obj 'b) b))
;; (when c-p (setf (slot-value obj 'c) c))
(when a-p (setf (shared-init-class-03-a obj) a))
(when b-p (setf (shared-init-class-03-b obj) b))
(when c-p (setf (shared-init-class-03-c obj) c))
obj)
(deftest shared-initialize.3.1
......
Supports Markdown
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