Skip to content
Snippets Groups Projects
Commit feabc489 authored by wlott's avatar wlott
Browse files

Fixed arg ordering for getf.

parent b075af38
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.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 @@ ...@@ -534,7 +534,7 @@
;; Default any slots with non-constant defaults now. ;; Default any slots with non-constant defaults now.
(dolist (hslot (condition-class-hairy-slots class)) (dolist (hslot (condition-class-hairy-slots class))
(when (dolist (initarg (condition-slot-initargs hslot) t) (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))) (return nil)))
(setf (getf (condition-assigned-slots res) (condition-slot-name hslot)) (setf (getf (condition-assigned-slots res) (condition-slot-name hslot))
(find-slot-default class hslot)))) (find-slot-default class hslot))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment