/[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.1.1.2 by ram, Sun Jun 17 11:42:05 1990 UTC revision 1.1.1.3 by ram, Fri May 17 16:23:17 1991 UTC
# Line 176  Line 176 
176      (:big)      (:big)
177      (:little (pushnew :clx-little-endian *features*))))      (:little (pushnew :clx-little-endian *features*))))
178    
179    #+cmu
180    (eval-when (compile eval load)
181      (ecase #.(c:backend-byte-order c:*backend*)
182        (:big-endian)
183        (:little-endian (pushnew :clx-little-endian *features*))))
184    
185    
186  ;;; 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
187  ;;; as the :displaced-to argument  does not have the same :element-type  ;;; as the :displaced-to argument  does not have the same :element-type
188  ;;; 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

Legend:
Removed from v.1.1.1.2  
changed lines
  Added in v.1.1.1.3

  ViewVC Help
Powered by ViewVC 1.1.5