Ignore:
Timestamp:
May 15, 2005, 7:15:24 AM (14 years ago)
Author:
gb
Message:

A few target-package changes, comments, indentation.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-0/l0-pred.lisp

    r1326 r1418  
    6262       (not (logbitp $lfbits-trampoline-bit (the fixnum (lfun-bits form))))))
    6363
    64 ; all characters are base-chars.
     64;;; all characters are base-chars.
    6565(defun extended-char-p (c)
    6666  (declare (ignore c)))
    6767
    6868
    69 ; Some of these things are probably open-coded.
    70 ; The functions have to exist SOMEWHERE ...
     69;;; Some of these things are probably open-coded.
     70;;; The functions have to exist SOMEWHERE ...
    7171(defun fixnump (x)
    7272  (= (the fixnum (lisptag x)) ppc32::tag-fixnum))
     
    178178
    179179
    180 ; Note that this is true of symbols and functions and many other
    181 ; things that it wasn't true of on the 68K.
     180;;; Note that this is true of symbols and functions and many other
     181;;; things that it wasn't true of on the 68K.
    182182(defun gvectorp (x)
    183183  (= (the fixnum (logand (the fixnum (typecode x)) ppc32::fulltagmask)) ppc32::fulltag-nodeheader))
     
    192192
    193193(defun miscobjp (x)
    194   (= (the fixnum (lisptag x)) ppc32::tag-misc))
     194  (= (the fixnum (lisptag x)) target::tag-misc))
    195195
    196196(defun simple-vector-p (x)
     
    447447
    448448
    449 ; real machine specific huh
     449;;; real machine specific huh
    450450(defun consp (x)
    451451  "Return true if OBJECT is a CONS, and NIL otherwise."
     
    481481(defun symbolp (thing)
    482482  "Return true if OBJECT is a SYMBOL, and NIL otherwise."
     483  #+ppc32-target
    483484  (if thing
    484     (= (the fixnum (typecode thing)) target::subtag-symbol)
    485     t))
    486 
     485    (= (the fixnum (typecode thing)) ppc32::subtag-symbol)
     486    t)
     487  #+ppc64-target
     488  (= (the fixnum (typecode thing)) ppc64::subtag-symbol))
     489     
    487490(defun packagep (thing)
    488491  (= (the fixnum (typecode thing)) target::subtag-package))
    489492
    490 ; 1 if by land, 2 if by sea.
     493;;; 1 if by land, 2 if by sea.
    491494(defun sequence-type (x)
    492495  (unless (>= (the fixnum (typecode x)) target::min-vector-subtag)
Note: See TracChangeset for help on using the changeset viewer.