/[cmucl]/src/clx/macros.lisp
ViewVC logotype

Diff of /src/clx/macros.lisp

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

revision 1.3 by ram, Tue Aug 11 15:17:13 1992 UTC revision 1.4 by ram, Fri Sep 30 16:05:07 1994 UTC
# Line 218  Line 218 
218     (let ((value (gensym)))     (let ((value (gensym)))
219       `(let ((,value (read-card8 ,index)))       `(let ((,value (read-card8 ,index)))
220          (declare (type (integer 0 (,(length keywords))) ,value))          (declare (type (integer 0 (,(length keywords))) ,value))
221          (type-check ,value (integer 0 (,(length keywords))))          (type-check ,value '(integer 0 (,(length keywords))))
222          (svref ',(apply #'vector keywords) ,value))))          (svref ',(apply #'vector keywords) ,value))))
223    ((index thing &rest keywords)    ((index thing &rest keywords)
224     `(write-card8 ,index (position ,thing     `(write-card8 ,index (position ,thing
# Line 238  Line 238 
238     (let ((value (gensym)))     (let ((value (gensym)))
239       `(let ((,value (read-card16 ,index)))       `(let ((,value (read-card16 ,index)))
240          (declare (type (integer 0 (,(length keywords))) ,value))          (declare (type (integer 0 (,(length keywords))) ,value))
241          (type-check ,value (integer 0 (,(length keywords))))          (type-check ,value '(integer 0 (,(length keywords))))
242          (svref ',(apply #'vector keywords) ,value))))          (svref ',(apply #'vector keywords) ,value))))
243    ((index thing &rest keywords)    ((index thing &rest keywords)
244     `(write-card16 ,index (position ,thing     `(write-card16 ,index (position ,thing
# Line 258  Line 258 
258     (let ((value (gensym)))     (let ((value (gensym)))
259       `(let ((,value (read-card29 ,index)))       `(let ((,value (read-card29 ,index)))
260          (declare (type (integer 0 (,(length keywords))) ,value))          (declare (type (integer 0 (,(length keywords))) ,value))
261          (type-check ,value (integer 0 (,(length keywords))))          (type-check ,value '(integer 0 (,(length keywords))))
262          (svref ',(apply #'vector keywords) ,value))))          (svref ',(apply #'vector keywords) ,value))))
263    ((index thing &rest keywords)    ((index thing &rest keywords)
264     `(write-card29 ,index (position ,thing     `(write-card29 ,index (position ,thing
# Line 307  Line 307 
307     (let ((value (gensym)))     (let ((value (gensym)))
308       `(let ((,value (read-card29 ,index)))       `(let ((,value (read-card29 ,index)))
309          (declare (type (integer 0 (,(length *boole-vector*))) ,value))          (declare (type (integer 0 (,(length *boole-vector*))) ,value))
310          (type-check ,value (integer 0 (,(length *boole-vector*))))          (type-check ,value '(integer 0 (,(length *boole-vector*))))
311          (svref *boole-vector* ,value))))          (svref *boole-vector* ,value))))
312    ((index thing)    ((index thing)
313     `(write-card29 ,index (position ,thing (the simple-vector *boole-vector*))))     `(write-card29 ,index (position ,thing (the simple-vector *boole-vector*))))

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

  ViewVC Help
Powered by ViewVC 1.1.5