X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Flow.lisp;fp=src%2Fpcl%2Flow.lisp;h=a825d5c6c427f19b2cc99b70b376ce9b2b80d1dc;hb=b1a1d1280f0003e0d5af9996274c95a78f188b37;hp=4ace2055fd1b136f788ea0af8be30cc688d87db6;hpb=11d63973b40deaab9c555bcdab8d5a742c814b48;p=sbcl.git diff --git a/src/pcl/low.lisp b/src/pcl/low.lisp index 4ace205..a825d5c 100644 --- a/src/pcl/low.lisp +++ b/src/pcl/low.lisp @@ -260,8 +260,6 @@ (when (pcl-instance-p instance) (get-slots instance))) -(defmacro built-in-or-structure-wrapper (x) `(layout-of ,x)) - (defmacro get-wrapper (inst) (once-only ((wrapper `(wrapper-of ,inst))) `(progn