From 1b556d9e057c6e3bed4893036d12eed1f3bc238d Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Thu, 7 Aug 2008 14:57:27 +0200
Subject: Add various array operations.

---
 control-flow.lisp | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

(limited to 'control-flow.lisp')

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)
+  )
-- 
cgit v1.2.3