| 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)
|
