www

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs

meval-op.lisp (808B)


      1 (setf meval-op (make-etat
      2 		   car
      3 		   caaaar
      4 		   caaadr
      5 		   caadar
      6 		   caaddr
      7 		   cadaar
      8 		   cadadr
      9 		   caddar
     10 		   cadddr
     11 		   cdaaar
     12 		   cdaadr
     13 		   cdadar
     14 		   cdaddr
     15 		   cddaar
     16 		   cddadr
     17 		   cdddar
     18 		   cddddr
     19 		   caaar
     20 		   caadr
     21 		   cadar
     22 		   caddr
     23 		   cdaar
     24 		   cdadr
     25 		   cddar
     26 		   cdddr
     27 		   caar
     28 		   cadr
     29 		   cdar
     30 		   cddr
     31 		   first
     32 		   second
     33 		   third
     34 		   fourth
     35 		   fifth
     36 		   sixth
     37 		   seventh
     38 		   eighth
     39 		   ninth
     40 		   tenth
     41 		   tree-equal
     42 		   char
     43 		   schar
     44 		   string
     45 		   string= 
     46 		   make-string
     47 		   equal
     48 		   eql
     49 		   eq
     50 		   cdr
     51 		   cons
     52 		   list
     53 		   oddp
     54 		   symbolp
     55 		   numberp
     56 		   stringp
     57 		   equalp
     58 		   +
     59 		   -
     60 		   *
     61 		   /
     62 		   =
     63 		   <
     64 		   >
     65 		   <=
     66 		   >=
     67 		   read
     68 		   error
     69 		   funcall
     70 		   assoc
     71 		   mload
     72 		   mini-meval
     73 ))