Changeset 13634


Ignore:
Timestamp:
Apr 18, 2010, 3:08:05 AM (10 years ago)
Author:
rme
Message:

Delete docstrings for CXXR, CXXXR functions.

File:
1 edited

Legend:

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

    r13568 r13634  
    838838  "Not CL.  A Coral addition for compatibility between CL spec and the shell.")
    839839
    840 
    841 (defun caar (x)
    842   "Return the car of the 1st sublist."
    843  (car (car x)))
    844 
    845 (defun cadr (x)
    846   "Return the 2nd object in a list."
    847  (car (cdr x)))
    848 
    849 (defun cdar (x)
    850   "Return the cdr of the 1st sublist."
    851  (cdr (car x)))
    852 
    853 (defun cddr (x)
    854   "Return all but the 1st two objects of a list."
    855 
    856  (cdr (cdr x)))
    857 
    858 (defun caaar (x)
    859   "Return the 1st object in the caar of a list."
    860  (car (car (car x))))
    861 
    862 (defun caadr (x)
    863   "Return the 1st object in the cadr of a list."
    864  (car (car (cdr x))))
    865 
    866 (defun cadar (x)
    867   "Return the car of the cdar of a list."
    868  (car (cdr (car x))))
    869 
    870 (defun caddr (x)
    871   "Return the 1st object in the cddr of a list."
    872  (car (cdr (cdr x))))
    873 
    874 (defun cdaar (x)
    875   "Return the cdr of the caar of a list."
    876  (cdr (car (car x))))
    877 
    878 (defun cdadr (x)
    879   "Return the cdr of the cadr of a list."
    880  (cdr (car (cdr x))))
    881 
    882 (defun cddar (x)
    883   "Return the cdr of the cdar of a list."
    884  (cdr (cdr (car x))))
    885 
    886 (defun cdddr (x)
    887   "Return the cdr of the cddr of a list."
    888  (cdr (cdr (cdr x))))
    889 
    890 (defun cadddr (x)
    891   "Return the car of the cdddr of a list."
    892  (car (cdr (cdr (cdr x)))))
     840(defun caar (x) (car (car x)))
     841(defun cadr (x) (car (cdr x)))
     842(defun cdar (x) (cdr (car x)))
     843(defun cddr (x) (cdr (cdr x)))
     844
     845(defun caaar (x) (car (car (car x))))
     846(defun caadr (x) (car (car (cdr x))))
     847(defun cadar (x) (car (cdr (car x))))
     848(defun caddr (x) (car (cdr (cdr x))))
     849(defun cdaar (x) (cdr (car (car x))))
     850(defun cdadr (x) (cdr (car (cdr x))))
     851(defun cddar (x) (cdr (cdr (car x))))
     852(defun cdddr (x) (cdr (cdr (cdr x))))
    893853
    894854(%fhave 'type-of #'%type-of)
Note: See TracChangeset for help on using the changeset viewer.