From feabc4896aa97ed5703229d781b984e549f29dde Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Tue, 23 Nov 1993 14:10:02 +0000 Subject: [PATCH] Fixed arg ordering for getf. --- code/error.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/code/error.lisp b/code/error.lisp index 989ca335f..89f3a6884 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)))) -- GitLab