Skip to content
Snippets Groups Projects
Commit ef8c599d authored by ram's avatar ram
Browse files

Fix arg order to GETF...

parent 5ec2f6df
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/error.lisp,v 1.39 1993/10/25 14:00:47 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/error.lisp,v 1.40 1993/10/25 14:13:08 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -659,7 +659,7 @@ ...@@ -659,7 +659,7 @@
(:instance (:instance
(when (or (functionp (condition-slot-initform slot)) (when (or (functionp (condition-slot-initform slot))
(dolist (initarg (condition-slot-initargs slot) nil) (dolist (initarg (condition-slot-initargs slot) nil)
(when (functionp (getf initarg e-def-initargs)) (when (functionp (getf e-def-initargs initarg))
(return t)))) (return t))))
(push slot (condition-class-hairy-slots class)))) (push slot (condition-class-hairy-slots class))))
((nil) ((nil)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment