diff options
author | Matthias Andreas Benkard <matthias@benkard.de> | 2008-08-07 14:57:27 +0200 |
---|---|---|
committer | Matthias Andreas Benkard <matthias@benkard.de> | 2008-08-07 14:57:27 +0200 |
commit | 1b556d9e057c6e3bed4893036d12eed1f3bc238d (patch) | |
tree | 51193cf4a28ea955967b3e9440b6508a17cb0d1c /control-flow.lisp | |
parent | a35098ffebf51958f22e0845b5b6803c0dff1dfb (diff) |
Add various array operations.
Diffstat (limited to 'control-flow.lisp')
-rw-r--r-- | control-flow.lisp | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/control-flow.lisp b/control-flow.lisp index a75fe6a..bcd8e23 100644 --- a/control-flow.lisp +++ b/control-flow.lisp @@ -236,3 +236,24 @@ (defun values-list (list) (apply #'values list)) + + +;; FIXME +(defmacro assert (form &optional places datum &rest args) + ) + +;; FIXME +(defmacro check-type (thing type &rest strings) + ) + +;; FIXME +(defmacro defsetf (&rest args) + ) + +;; FIXME +(defun get-setf-expansion (&rest args) + (values nil nil nil `(error "SETF not implemented") `(error "SETF not implemented"))) + +;; FIXME +(defmacro define-setf-expander (&rest args) + ) |