/[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.13 by wlott, Tue Oct 9 23:03:53 1990 UTC revision 1.14 by wlott, Tue Oct 9 23:25:51 1990 UTC
# Line 31  Line 31 
31  (defun structure-ref (struct index)  (defun structure-ref (struct index)
32    "Return the value from the INDEXth slot of STRUCT.  0 corresponds to the    "Return the value from the INDEXth slot of STRUCT.  0 corresponds to the
33    type.  This is SETFable."    type.  This is SETFable."
34    (structure-ref struct index)    (structure-ref struct index))
35    
36  (defun structure-set (struct index new-value)  (defun structure-set (struct index new-value)
37    "Set the INDEXth slot of STRUCT to NEW-VALUE."    "Set the INDEXth slot of STRUCT to NEW-VALUE."

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

  ViewVC Help
Powered by ViewVC 1.1.5