summaryrefslogtreecommitdiff
path: root/util.lisp
blob: ed4c3a02e58e30a63a1409fcd94bd3c6b820de7d (plain)
1
2
3
4
(%defmacro %defun args
  (list '%fset
        (list 'quote (car (cdr (car args))))
        (cons '%lambda (cdr (cdr (car args))))))