X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fmacros.lisp;h=437e802990450ceb42b021799491b2175c1e8439;hb=23e8ed407c99d1b26465acc0aa61c1c88cc81893;hp=80dab6b01a233320eb15b3677ec9508932d7b2fb;hpb=4d31006db24db375cdb83a5726d66c524b36689c;p=sbcl.git

diff --git a/src/pcl/macros.lisp b/src/pcl/macros.lisp
index 80dab6b..437e802 100644
--- a/src/pcl/macros.lisp
+++ b/src/pcl/macros.lisp
@@ -29,15 +29,10 @@
 (/show "starting pcl/macros.lisp")
 
 (declaim (declaration
-          ;; As of sbcl-0.7.0.6, SBCL actively uses this declaration
-          ;; to propagate information needed to set up nice debug
-          ;; names (as seen e.g. in BACKTRACE) for method functions.
-          %method-name
           ;; These nonstandard declarations seem to be used privately
           ;; within PCL itself to pass information around, so we can't
           ;; just delete them.
           %class
-          %method-lambda-list
           ;; This declaration may also be used within PCL to pass
           ;; information around, I'm not sure. -- WHN 2000-12-30
           %variable-rebinding))
@@ -52,15 +47,6 @@
 
 (/show "pcl/macros.lisp 85")
 
-(defmacro doplist ((key val) plist &body body)
-  `(let ((.plist-tail. ,plist) ,key ,val)
-     (loop (when (null .plist-tail.) (return nil))
-           (setq ,key (pop .plist-tail.))
-           (when (null .plist-tail.)
-             (error "malformed plist, odd number of elements"))
-           (setq ,val (pop .plist-tail.))
-           (progn ,@body))))
-
 (/show "pcl/macros.lisp 101")
 
 (defmacro dolist-carefully ((var list improper-list-handler) &body body)