home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol148 / initlisp.stb < prev    next >
Encoding:
Text File  |  1984-04-29  |  897 b   |  34 lines
  1. (DEFEXP CAAR (X) (CAR (CAR X)) )
  2.  
  3. (DEFEXP CADR (X) (CAR (CDR X)) )
  4.  
  5. (DEFEXP MATCH (K M) (COND
  6.         ( (NULL K) (QUOTE NO) )
  7.         ( (NULL M) (QUOTE NO) )
  8.         ( (EQ (CAR K)(CAR M)) (CAR K) )
  9.         ( T (MATCH (CDR K) (CDR M) ) )   ))
  10.  
  11. (DEFEXP MEMBER (ITEM S) (COND
  12.         ( (NULL S) ( ) )
  13.         ( (EQUAL ITEM (CAR S)) S)
  14.         ( T (MEMBER ITEM (CDR S)) ) ))
  15.  
  16. (DEFEXP SQUASH (S) (COND
  17.         ( (NULL S) ( ) )
  18.         ( (ATOM S) (CONS S NIL) )
  19.         ( T (APPEND (SQUASH(CAR S))(SQUASH(CDR S))))  ))
  20.  
  21. (DEFEXP REPLACE (ITEM1 ITEM2 S) (COND
  22.         ( (ATOM S) (COND ( (EQ ITEM2 S) ITEM1 ) 
  23.                          ( T (QUOTE(MATCH NOT POSSIBLE))) ))
  24.         ( (EQUAL ITEM2 (CAR S)) (CONS ITEM1 (CDR S)) )
  25.         ( T (CONS (CAR S) (REPLACE ITEM1 ITEM2 (CDR S))))  ))
  26.  
  27. (DEFEXP MAPCAR (FN L) (COND
  28.         ( (NULL L) ( ) )
  29.         ( T (CONS (FN (CAR L)) (MAPCAR FN (CDR L))))  ))
  30.  
  31.  
  32. FIN
  33.  
  34.