Changeset 13634 for trunk/source/level1
 Timestamp:
 Apr 18, 2010, 3:08:05 AM (9 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

trunk/source/level1/l1utils.lisp
r13568 r13634 838 838 "Not CL. A Coral addition for compatibility between CL spec and the shell.") 839 839 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)))) 893 853 894 854 (%fhave 'typeof #'%typeof)
Note: See TracChangeset
for help on using the changeset viewer.