Changeset 10131


Ignore:
Timestamp:
Jul 19, 2008, 5:00:40 AM (11 years ago)
Author:
rme
Message:

Darwin/x8632 conditionalizations.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-streams.lisp

    r10053 r10131  
    2525  #+darwinppc-target
    2626  (require "DARWINPPC-SYSCALLS")
     27  #+darwinx8632-target
     28  (require "DARWINX8632-SYSCALLS")
    2729  #+darwinx8664-target
    2830  (require "DARWINX8664-SYSCALLS")
     
    247249        (= (logand subtag ppc64::lowtagmask)
    248250           ppc64::lowtag-immheader)
     251        #+x8632-target
     252        (= (logand subtag x8632::fulltagmask)
     253           x8632::fulltag-immheader)
    249254        #+x8664-target
    250255        (logbitp (the (mod 16) (logand subtag x8664::fulltagmask))
     
    58595864                (or last-form-in-selection *verbose-eval-selection*))))))
    58605865
    5861                              
     5866
    58625867(defun (setf %ioblock-external-format) (ef ioblock)
    58635868  (let* ((encoding (get-character-encoding (external-format-character-encoding ef)))
Note: See TracChangeset for help on using the changeset viewer.