/[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.10 by dtc, Sat Dec 19 15:21:15 1998 UTC revision 1.11 by pw, Tue Mar 16 23:37:37 1999 UTC
# Line 162  Line 162 
162    
163  (deftype card4 () '(unsigned-byte 4))  (deftype card4 () '(unsigned-byte 4))
164    
 #-clx-ansi-common-lisp  
 (deftype real (&optional (min '*) (max '*))  
   (labels ((convert (limit floatp)  
              (typecase limit  
                (number (if floatp (float limit 0s0) (rational limit)))  
                (list (map 'list #'convert limit))  
                (otherwise limit))))  
     `(or (float ,(convert min t) ,(convert max t))  
          (rational ,(convert min nil) ,(convert max nil)))))  
   
 #-clx-ansi-common-lisp  
 (deftype base-char ()  
   'string-char)  
   
165  ; Note that we are explicitly using a different rgb representation than what  ; Note that we are explicitly using a different rgb representation than what
166  ; is actually transmitted in the protocol.  ; is actually transmitted in the protocol.
167    
# Line 351  Line 337 
337  (defun print-display-name (display stream)  (defun print-display-name (display stream)
338    (declare (type (or null display) display))    (declare (type (or null display) display))
339    (cond (display    (cond (display
340           #-allegro (princ (display-host display) stream)           (princ (display-host display) stream)
          #+allegro (write-string (string (display-host display)) stream)  
341           (write-string ":" stream)           (write-string ":" stream)
342           (princ (display-display display) stream))           (princ (display-display display) stream))
343          (t          (t
# Line 540  Line 525 
525    (server-state (allocate-gcontext-state) :type gcontext-state)    (server-state (allocate-gcontext-state) :type gcontext-state)
526    (local-state (allocate-gcontext-state) :type gcontext-state)    (local-state (allocate-gcontext-state) :type gcontext-state)
527    (plist nil :type list)                        ; Extension hook    (plist nil :type list)                        ; Extension hook
528    (next nil #-explorer :type #-explorer (or null gcontext))    (next nil :type (or null gcontext))
529    )    )
530    
531  (defun print-gcontext (gcontext stream depth)  (defun print-gcontext (gcontext stream depth)

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

  ViewVC Help
Powered by ViewVC 1.1.5