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

Diff of /src/code/room.lisp

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

revision 1.24 by ram, Mon Oct 31 04:11:27 1994 UTC revision 1.25 by dtc, Tue Apr 1 19:23:53 1997 UTC
# Line 84  Line 84 
84                   (simple-array-unsigned-byte-8-type . 0)                   (simple-array-unsigned-byte-8-type . 0)
85                   (simple-array-unsigned-byte-16-type . 1)                   (simple-array-unsigned-byte-16-type . 1)
86                   (simple-array-unsigned-byte-32-type . 2)                   (simple-array-unsigned-byte-32-type . 2)
87                     #+signed-array (simple-array-signed-byte-8-type . 0)
88                     #+signed-array (simple-array-signed-byte-16-type . 1)
89                     #+signed-array (simple-array-signed-byte-30-type . 2)
90                     #+signed-array (simple-array-signed-byte-32-type . 2)
91                   (simple-array-single-float-type . 2)                   (simple-array-single-float-type . 2)
92                   (simple-array-double-float-type . 3)))                   (simple-array-double-float-type . 3)))
93    (let ((name (car stuff))    (let ((name (car stuff))
# Line 470  Line 474 
474                 #.simple-array-unsigned-byte-8-type                 #.simple-array-unsigned-byte-8-type
475                 #.simple-array-unsigned-byte-16-type                 #.simple-array-unsigned-byte-16-type
476                 #.simple-array-unsigned-byte-32-type                 #.simple-array-unsigned-byte-32-type
477                   #+signed-array #.simple-array-signed-byte-8-type
478                   #+signed-array #.simple-array-signed-byte-16-type
479                   #+signed-array #.simple-array-signed-byte-30-type
480                   #+signed-array #.simple-array-signed-byte-32-type
481                 #.simple-array-single-float-type                 #.simple-array-single-float-type
482                 #.simple-array-double-float-type)                 #.simple-array-double-float-type)
483                (incf non-descriptor-headers)                (incf non-descriptor-headers)

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25

  ViewVC Help
Powered by ViewVC 1.1.5