Ignore:
Timestamp:
Feb 16, 2005, 9:09:21 PM (15 years ago)
Author:
bryan
Message:

add docstrings to the majority of common-lisp-user symbols starting
with a snapshot of those found in SBCL 0.8.18.

File:
1 edited

Legend:

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

    r309 r929  
    5858
    5959(defun compiled-function-p (form)
     60  "Return true if OBJECT is a COMPILED-FUNCTION, and NIL otherwise."
    6061  (and (functionp form)
    6162       (not (logbitp $lfbits-trampoline-bit (the fixnum (lfun-bits form))))))
     
    7576
    7677(defun integerp (x)
     78  "Return true if OBJECT is an INTEGER, and NIL otherwise."
    7779  (let* ((typecode (typecode x)))
    7880    (declare (fixnum typecode))
     
    8587
    8688(defun rationalp (x)
     89  "Return true if OBJECT is a RATIONAL, and NIL otherwise."
    8790  (or (fixnump x)
    8891      (let* ((typecode (typecode x)))
     
    101104
    102105(defun floatp (x)
     106  "Return true if OBJECT is a FLOAT, and NIL otherwise."
    103107  (let* ((typecode (typecode x)))
    104108    (declare (fixnum typecode))
     
    107111
    108112(defun realp (x)
     113  "Return true if OBJECT is a REAL, and NIL otherwise."
    109114  (let* ((typecode (typecode x)))
    110115    (declare (fixnum typecode))
     
    114119
    115120(defun complexp (x)
     121  "Return true if OBJECT is a COMPLEX, and NIL otherwise."
    116122  (= (the fixnum (typecode x)) ppc32::subtag-complex))
    117123
    118124(defun numberp (x)
     125  "Return true if OBJECT is a NUMBER, and NIL otherwise."
    119126  (let* ((typecode (typecode x)))
    120127    (declare (fixnum typecode))
     
    124131
    125132(defun arrayp (x)
     133  "Return true if OBJECT is an ARRAY, and NIL otherwise."
    126134  (>= (the fixnum (typecode x)) ppc32::min-array-subtag))
    127135
    128136(defun vectorp (x)
     137  "Return true if OBJECT is a VECTOR, and NIL otherwise."
    129138  (>= (the fixnum (typecode x)) ppc32::min-vector-subtag))
    130139
    131140
    132141(defun stringp (x)
     142  "Return true if OBJECT is a STRING, and NIL otherwise."
    133143  (let* ((typecode (typecode x)))
    134144    (declare (fixnum typecode))
     
    142152
    143153(defun simple-string-p (x)
     154  "Return true if OBJECT is a SIMPLE-STRING, and NIL otherwise."
    144155  (= (the fixnum (typecode x)) ppc32::subtag-simple-base-string))
    145156
     
    178189
    179190(defun simple-vector-p (x)
     191  "Return true if OBJECT is a SIMPLE-VECTOR, and NIL otherwise."
    180192  (= (the fixnum (typecode x)) ppc32::subtag-simple-vector))
    181193
     
    190202
    191203(defun simple-bit-vector-p (form)
     204  "Return true if OBJECT is a SIMPLE-BIT-VECTOR, and NIL otherwise."
    192205  (= (the fixnum (typecode form)) ppc32::subtag-bit-vector))
    193206
    194207(defun bit-vector-p (thing)
     208  "Return true if OBJECT is a BIT-VECTOR, and NIL otherwise."
    195209  (let* ((typecode (typecode thing)))
    196210    (declare (fixnum typecode))
     
    213227
    214228
    215 (defun eq (x y) (eq x y))
     229(defun eq (x y)
     230  "Return T if OBJ1 and OBJ2 are the same object, otherwise NIL."
     231  (eq x y))
    216232
    217233
     
    426442
    427443; real machine specific huh
    428 (defun consp (x) (consp x))
     444(defun consp (x)
     445  "Return true if OBJECT is a CONS, and NIL otherwise."
     446  (consp x))
    429447
    430448(defun characterp (arg)
     449  "Return true if OBJECT is a CHARACTER, and NIL otherwise."
    431450  (characterp arg))
    432451
     
    455474
    456475(defun symbolp (thing)
     476  "Return true if OBJECT is a SYMBOL, and NIL otherwise."
    457477  (if thing
    458478    (= (the fixnum (typecode thing)) ppc32::subtag-symbol)
Note: See TracChangeset for help on using the changeset viewer.