diff --git a/code/error.lisp b/code/error.lisp index 989ca335ffdecb78b97271351dd05a71423df6f0..89f3a68842c93f9270872728430d6a9d7cb3060c 100644 --- a/code/error.lisp +++ b/code/error.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/error.lisp,v 1.41 1993/10/25 14:26:35 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/error.lisp,v 1.42 1993/11/23 14:10:02 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -534,7 +534,7 @@ ;; Default any slots with non-constant defaults now. (dolist (hslot (condition-class-hairy-slots class)) (when (dolist (initarg (condition-slot-initargs hslot) t) - (unless (eq (getf initarg args *empty-slot*) *empty-slot*) + (unless (eq (getf args initarg *empty-slot*) *empty-slot*) (return nil))) (setf (getf (condition-assigned-slots res) (condition-slot-name hslot)) (find-slot-default class hslot))))