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

Diff of /src/clx/clx.lisp

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

revision 1.3 by wlott, Sat Nov 16 09:27:43 1991 UTC revision 1.4 by wlott, Wed Apr 8 00:31:43 1992 UTC
# Line 161  Line 161 
161    
162  (deftype card4 () '(unsigned-byte 4))  (deftype card4 () '(unsigned-byte 4))
163    
164  #-clx-ansi-common-lisp  #-(or clx-ansi-common-lisp cmu)
165  (deftype real (&optional (min '*) (max '*))  (deftype real (&optional (min '*) (max '*))
166    (labels ((convert (limit floatp)    (labels ((convert (limit floatp)
167               (typecase limit               (typecase limit

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

  ViewVC Help
Powered by ViewVC 1.1.5