Ignore:
Timestamp:
Jul 27, 2010, 12:59:48 AM (9 years ago)
Author:
gz
Message:

Misc tweaks and fixes from trunk (r13550,r13560,r13568,r13569,r13581,r13583,r13633-13636,r13647,r13648,r13657-r13659,r13675,r13678,r13688,r13743,r13744,r13769,r13773,r13782,r13813,r13814,r13869,r13870,r13873,r13901,r13930,r13943,r13946,r13954,r13961,r13974,r13975,r13978,r13990,r14010,r14012,r14020,r14028-r14030)

Location:
branches/qres/ccl
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/qres/ccl

  • branches/qres/ccl/level-1/l1-utils.lisp

    r13507 r14049  
    742742;;;;;FUNCTION BINDING Functions
    743743
    744 ;;; A symbol's entrypoint contains:
    745 ;;;  1) something tagged as $t_lfun if the symbol is
    746 ;;;     not fbound as a macro or special form;
    747 ;;;  2) a cons, otherwise, where the cdr is a fixnum
    748 ;;;     whose value happens to be the same bit-pattern
    749 ;;;     as a "jsr_subprim $sp-apply-macro" instruction.
    750 ;;;     The car of this cons is either:
    751 ;;;     a) a function -> macro-function;
    752 ;;;     b) a symbol: special form not redefined as a macro.
    753 ;;;     c) a cons whose car is a function -> macro function defined
    754 ;;;        on a special form.
    755 
    756 
    757 
    758 
    759744(defun symbol-function (name)
    760745  "Return the definition of NAME, even if it is a macro or a special form.
     
    764749
    765750(%fhave 'fdefinition #'symbol-function)
    766 
    767 
    768 (defun kernel-function-p (f)
    769   (declare (ignore f))
    770   nil)
    771751
    772752(defun %make-function (name fn env)
     
    834814
    835815(defstatic *pathname-escape-character*
    836   #+windows-target #\'
     816  #+windows-target #\>
    837817  #-windows-target #\\
    838818  "Not CL.  A Coral addition for compatibility between CL spec and the shell.")
    839819
    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)))))
     820(defun caar (x) (car (car x)))
     821(defun cadr (x) (car (cdr x)))
     822(defun cdar (x) (cdr (car x)))
     823(defun cddr (x) (cdr (cdr x)))
     824
     825(defun caaar (x) (car (car (car x))))
     826(defun caadr (x) (car (car (cdr x))))
     827(defun cadar (x) (car (cdr (car x))))
     828(defun caddr (x) (car (cdr (cdr x))))
     829(defun cdaar (x) (cdr (car (car x))))
     830(defun cdadr (x) (cdr (car (cdr x))))
     831(defun cddar (x) (cdr (cdr (car x))))
     832(defun cdddr (x) (cdr (cdr (cdr x))))
    893833
    894834(%fhave 'type-of #'%type-of)
Note: See TracChangeset for help on using the changeset viewer.