From 0550b8faf77b056e383ad332abbb4304acb8c512 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sun, 13 Mar 2022 14:28:11 -0700 Subject: REINIT-FROM-SIMPLE-PRINT: don't call REINITIALIZE-INSTANCE This makes us more like MAKE-LOAD-FORM-SAVING-SLOTS. Signed-off-by: Sean Whitton --- src/util.lisp | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/src/util.lisp b/src/util.lisp index f5d3498..63ca21a 100644 --- a/src/util.lisp +++ b/src/util.lisp @@ -228,10 +228,9 @@ symlinks. Not suitable for use by :POSIX properties." namestring)) (defun reinit-from-simple-print (class &rest slots) - (loop with object = (allocate-instance (find-class class)) - for (slot-name slot-value) on slots by #'cddr - do (setf (slot-value object slot-name) slot-value) - finally (return (reinitialize-instance object)))) + (aprog1 (allocate-instance (find-class class)) + (loop for (slot-name slot-value) on slots by #'cddr + do (setf (slot-value it slot-name) slot-value)))) (defmacro quote-nonselfeval (x) (once-only (x) -- cgit v1.2.3