Changeset 13633


Ignore:
Timestamp:
Apr 18, 2010, 3:06:11 AM (9 years ago)
Author:
rme
Message:

Remove docstrings from CXXXXR functions. Move definition of CADDDR
here from l1-utils.lisp.

When you're trying to figure out a form involving, e.g., CDADAR,
"Return the cdr of the cadar of a list" doesn't exactly tell you
anything you didn't already know.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/lists.lisp

    r13067 r13633  
    2222  (require 'level-2))
    2323
    24 
    25 
    26 ;;; These functions perform basic list operations:
    27 
    28 #|
    29 (defun caar (list) (car (car list)))
    30 (defun cadr (list) (car (cdr list)))
    31 (defun cdar (list) (cdr (car list)))
    32 (defun cddr (list) (cdr (cdr list)))
    33 
    34 (defun caaar (list) (car (caar list)))
    35 (defun caadr (list) (car (cadr list)))
    36 (defun cadar (list) (car (cdar list)))
    37 (defun caddr (list) (car (cddr list)))
    38 (defun cdaar (list) (cdr (caar list)))
    39 (defun cdadr (list) (cdr (cadr list)))
    40 (defun cddar (list) (cdr (cdar list)))
    41 (defun cdddr (list) (cdr (cddr list)))
    42 |#
    43 
    44 
    45 (defun caaaar (list)
    46   "Return the car of the caaar of a list."
    47   (car (caaar list)))
    48 
    49 (defun caaadr (list)
    50   "Return the car of the caadr of a list."
    51   (car (caadr list)))
    52 
    53 (defun caadar (list)
    54   "Return the car of the cadar of a list."
    55   (car (cadar list)))
    56 
    57 (defun caaddr (list)
    58   "Return the car of the caddr of a list."
    59   (car (caddr list)))
    60 
    61 (defun cadaar (list)
    62   "Return the car of the cdaar of a list."
    63   (car (cdaar list)))
    64 
    65 (defun cadadr (list)
    66   "Return the car of the cdadr of a list."
    67   (car (cdadr list)))
    68 
    69 (defun caddar (list)
    70   "Return the car of the cddar of a list."
    71   (car (cddar list)))
    72 
    73 (defun cdaaar (list)
    74   "Return the cdr of the caaar of a list."
    75   (cdr (caaar list)))
    76 
    77 (defun cdaadr (list)
    78   "Return the cdr of the caadr of a list."
    79   (cdr (caadr list)))
    80 
    81 (defun cdadar (list)
    82   "Return the cdr of the cadar of a list."
    83   (cdr (cadar list)))
    84 
    85 (defun cdaddr (list)
    86   "Return the cdr of the caddr of a list."
    87   (cdr (caddr list)))
    88 
    89 (defun cddaar (list)
    90   "Return the cdr of the cdaar of a list."
    91   (cdr (cdaar list)))
    92 
    93 (defun cddadr (list)
    94   "Return the cdr of the cdadr of a list."
    95   (cdr (cdadr list)))
    96 
    97 (defun cdddar (list)
    98   "Return the cdr of the cddar of a list."
    99   (cdr (cddar list)))
    100 
    101 (defun cddddr (list)
    102   "Return the cdr of the cdddr of a list."
    103   (cdr (cdddr list)))
     24(defun caaaar (list) (car (caaar list)))
     25(defun caaadr (list) (car (caadr list)))
     26(defun caadar (list) (car (cadar list)))
     27(defun caaddr (list) (car (caddr list)))
     28(defun cadaar (list) (car (cdaar list)))
     29(defun cadadr (list) (car (cdadr list)))
     30(defun caddar (list) (car (cddar list)))
     31(defun cadddr (list) (car (cdddr list)))
     32(defun cdaaar (list) (cdr (caaar list)))
     33(defun cdaadr (list) (cdr (caadr list)))
     34(defun cdadar (list) (cdr (cadar list)))
     35(defun cdaddr (list) (cdr (caddr list)))
     36(defun cddaar (list) (cdr (cdaar list)))
     37(defun cddadr (list) (cdr (cdadr list)))
     38(defun cdddar (list) (cdr (cddar list)))
     39(defun cddddr (list) (cdr (cdddr list)))
    10440
    10541(defun tree-equal (x y &key (test (function eql)) test-not)
Note: See TracChangeset for help on using the changeset viewer.