| 1234567891011121314151617181920 |
- (defmacro defalias (to fn)
- `(setf (fdefinition ',to) #',fn))
- (defconstant \#t t)
- (defconstant \#f nil)
- (defalias 'eq? eq)
- (defalias 'equal? equal)
- (defalias 'pair? consp)
- (defalias 'list? listp)
- (defalias 'null? null)
- (defalias 'map mapcar)
- (defalias 'for-each mapc)
- (defalias 'begin progn)
- (defalias 'atom? (lambda (x) (not (list? x))))
- (defalias 'sexp? (lambda (x) (or (list? x) (atom? x))))
- (defalias 'boolean? (lambda (v) (eql v \#t)))
- (defalias 'number? numberp)
- (defalias 'zero? zerop)
|
