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

Chagned the slot setter functions to take the arguments in the corrent order.

parent 480b7b95
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; Scott Fahlman (FAHLMAN@CMUC).
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/defstruct.lisp,v 1.9 1990/08/24 18:10:38 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/defstruct.lisp,v 1.10 1990/09/06 17:53:14 wlott Exp $
;;; ;;;
;;; Defstruct structure definition package (Mark II). ;;; Defstruct structure definition package (Mark II).
;;; Written by Skef Wholey and Rob MacLachlan. ;;; Written by Skef Wholey and Rob MacLachlan.
...@@ -313,7 +313,7 @@ ...@@ -313,7 +313,7 @@
(unless (dsd-read-only slot) (unless (dsd-read-only slot)
(setf (fdefinition `(setf ,(dsd-accessor slot))) (setf (fdefinition `(setf ,(dsd-accessor slot)))
#'(lambda (structure new-value) #'(lambda (new-value structure)
(declare (optimize (speed 3) (safety 0))) (declare (optimize (speed 3) (safety 0)))
(unless (typep-to-structure structure info) (unless (typep-to-structure structure info)
(error "Structure for setter ~S is not a ~S:~% ~S" (error "Structure for setter ~S is not a ~S:~% ~S"
......
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