/[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.8.1.1 by wlott, Sat Jun 16 16:27:02 1990 UTC revision 1.8.1.2 by wlott, Sun Jun 24 19:38:52 1990 UTC
# Line 15  Line 15 
15  (in-package 'c)  (in-package 'c)
16  (export '(lisp::defstruct) "LISP")  (export '(lisp::defstruct) "LISP")
17    
18  ;;; In Spice Lisp, the default structure representation is a simple-vector with  ;;; Note: STRUCTURIFY is defined in struct.lisp.  It converts a simple-vector
19  ;;; the subtype field set to 1.  The first element is used to hold the name of  ;;; into a structure.
 ;;; the structure.  This piece of implementation-dependency resides in the  
 ;;; macros defined here.  
 ;;;  
 (proclaim '(inline structurify))  
 (defun structurify (structure)  
   "Frobs a vector to turn it into a named structure.  Returns the vector."  
   (%primitive set-vector-subtype structure  
               #+new-compiler vm:vector-structure-subtype  
               #-new-compiler %g-vector-structure-subtype))  
20    
21    
22  ;;; This version of Defstruct is implemented using Defstruct, and is free of  ;;; This version of Defstruct is implemented using Defstruct, and is free of

Legend:
Removed from v.1.8.1.1  
changed lines
  Added in v.1.8.1.2

  ViewVC Help
Powered by ViewVC 1.1.5