X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fdefs.lisp;h=5bfa675e9d10183fd9003c5b69cba3ed694975a5;hb=8ee41eac134a552e07e966dd16d681e8216147fc;hp=068b49f4f60016a14fbf0fa2c9c8aa4304c4b7c9;hpb=119d1c157e519573074720b7897a9fa918329ac5;p=sbcl.git diff --git a/src/pcl/defs.lisp b/src/pcl/defs.lisp index 068b49f..5bfa675 100644 --- a/src/pcl/defs.lisp +++ b/src/pcl/defs.lisp @@ -76,7 +76,7 @@ ;; FIXME: do we still need this? ((and (null args) (typep type 'classoid)) (or (classoid-pcl-class type) - (ensure-non-standard-class (classoid-name type)))) + (ensure-non-standard-class (classoid-name type) type))) ((specializerp type) type))) ;;; interface @@ -195,12 +195,6 @@ (push (list class-name symbol) *built-in-wrapper-symbols*) symbol))) -(pushnew '%class *var-declarations*) -(pushnew '%variable-rebinding *var-declarations*) - -(defun variable-class (var env) - (caddr (var-declaration 'class var env))) - (defvar *standard-method-combination*) (defun plist-value (object name) @@ -233,10 +227,10 @@ (let ((subs (classoid-subclasses class))) (/noshow subs) (when subs - (dohash (sub v subs) + (dohash ((sub v) subs) (declare (ignore v)) (/noshow sub) - (when (member class (direct-supers sub)) + (when (member class (direct-supers sub) :test #'eq) (res sub))))) (res)))) (mapcar (lambda (kernel-bic-entry)