/[cmucl]/src/code/defstruct.lisp
ViewVC logotype

Diff of /src/code/defstruct.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.35 by ram, Thu Dec 10 01:21:58 1992 UTC revision 1.36 by wlott, Tue Dec 15 16:08:46 1992 UTC
# Line 15  Line 15 
15  ;;; Written by Skef Wholey and Rob MacLachlan.  ;;; Written by Skef Wholey and Rob MacLachlan.
16  ;;;  ;;;
17  (in-package "C")  (in-package "C")
18    
19  (in-package "LISP")  (in-package "LISP")
20  (export '(defstruct copy-structure))  (export '(defstruct copy-structure))
21    
22    (in-package :c)
23    
24  ;;; Always compile safe.  This code isn't very careful about protecting itself.  ;;; Always compile safe.  This code isn't very careful about protecting itself.
25  ;;;  ;;;
26  (declaim (optimize (safety 1)))  (declaim (optimize (safety 1)))
# Line 468  Line 471 
471          (declare (type structure-index i))          (declare (type structure-index i))
472          (setf (structure-ref res i)          (setf (structure-ref res i)
473                (structure-ref structure i)))                (structure-ref structure i)))
474        res))        res)))
475    
476    
477  ;;; Define-Accessors returns a list of function definitions for accessing and  ;;; Define-Accessors returns a list of function definitions for accessing and

Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36

  ViewVC Help
Powered by ViewVC 1.1.5