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

Diff of /src/clx/depdefs.lisp

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

revision 1.3 by ram, Tue Aug 11 15:15:53 1992 UTC revision 1.3.1.1 by ram, Wed Jul 21 08:31:54 1993 UTC
# Line 1  Line 1 
1  ;;; -*- Mode: LISP; Syntax: Common-lisp; Package: XLIB; Base: 10; Lowercase: Yes -*-  ;;; -*- Mode: Lisp; Package: Xlib; Log: clx.log -*-
2    
3  ;; This file contains some of the system dependent code for CLX  ;; This file contains some of the system dependent code for CLX
4    
# Line 157  Line 157 
157      (:big-endian)      (:big-endian)
158      (:little-endian (pushnew :clx-little-endian *features*))))      (:little-endian (pushnew :clx-little-endian *features*))))
159    
160    #+cmu
161    (eval-when (compile eval load)
162      (ecase #.(c:backend-byte-order c:*backend*)
163        (:big-endian)
164        (:little-endian (pushnew :clx-little-endian *features*))))
165    
166    
167  ;;; Steele's Common-Lisp states:  "It is an error if the array specified  ;;; Steele's Common-Lisp states:  "It is an error if the array specified
168  ;;; as the :displaced-to argument  does not have the same :element-type  ;;; as the :displaced-to argument  does not have the same :element-type
169  ;;; as the array being created" If this is the case on your lisp, then  ;;; as the array being created" If this is the case on your lisp, then
# Line 526  Line 533 
533  (def-clx-class (buffer (:constructor nil) (:copier nil) (:predicate nil))  (def-clx-class (buffer (:constructor nil) (:copier nil) (:predicate nil))
534    ;; Lock for multi-processing systems    ;; Lock for multi-processing systems
535    (lock (make-process-lock "CLX Buffer Lock"))    (lock (make-process-lock "CLX Buffer Lock"))
536    #-excl (output-stream nil :type (or null stream))    #-(or excl) (output-stream nil :type (or null stream))
537    #+excl (output-stream -1 :type fixnum)    #+(or excl) (output-stream nil :type (or null fixnum))
538    ;; Buffer size    ;; Buffer size
539    (size 0 :type array-index)    (size 0 :type array-index)
540    (request-number 0 :type (unsigned-byte 16))    (request-number 0 :type (unsigned-byte 16))
# Line 549  Line 556 
556    ;; Holding buffer for 16-bit text    ;; Holding buffer for 16-bit text
557    (tbuf16 (make-sequence 'buffer-text16 *buffer-text16-size* :initial-element 0))    (tbuf16 (make-sequence 'buffer-text16 *buffer-text16-size* :initial-element 0))
558    ;; Probably EQ to Output-Stream    ;; Probably EQ to Output-Stream
559    #-excl (input-stream nil :type (or null stream))    #-(or excl) (input-stream nil :type (or null stream))
560    #+excl (input-stream -1 :type fixnum)    #+(or excl) (input-stream nil :type (or null fixnum))
561    ;; T when the host connection has gotten errors    ;; T when the host connection has gotten errors
562    (dead nil :type (or null (not null)))    (dead nil :type (or null (not null)))
563    ;; T makes buffer-flush a noop.  Manipulated with with-buffer-flush-inhibited.    ;; T makes buffer-flush a noop.  Manipulated with with-buffer-flush-inhibited.
# Line 577  Line 584 
584  ;; Printing routines.  ;; Printing routines.
585  ;;-----------------------------------------------------------------------------  ;;-----------------------------------------------------------------------------
586    
587  #-(or clx-ansi-common-lisp Genera)  #-(or clx-ansi-common-lisp Genera CMU)
588  (defun print-unreadable-object-function (object stream type identity function)  (defun print-unreadable-object-function (object stream type identity function)
589    (declare #+lispm    (declare #+lispm
590             (sys:downward-funarg function))             (sys:downward-funarg function))
# Line 602  Line 609 
609    (princ ">" stream)    (princ ">" stream)
610    nil)    nil)
611    
612  #-(or clx-ansi-common-lisp Genera)  #-(or clx-ansi-common-lisp Genera CMU)
613  (defmacro print-unreadable-object  (defmacro print-unreadable-object
614            ((object stream &key type identity) &body body)            ((object stream &key type identity) &body body)
615    (if body    (if body

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

  ViewVC Help
Powered by ViewVC 1.1.5