Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv21536
Modified Files: basic-macros.lisp Log Message: Moved some macros to new files and changed the order files are loaded/compiled. The idea is to not compile function-calls before compiler-macros are defined, etc.
Date: Tue Jul 20 16:50:56 2004 Author: ffjeld
Index: movitz/losp/muerte/basic-macros.lisp diff -u movitz/losp/muerte/basic-macros.lisp:1.27 movitz/losp/muerte/basic-macros.lisp:1.28 --- movitz/losp/muerte/basic-macros.lisp:1.27 Thu Jul 15 14:06:46 2004 +++ movitz/losp/muerte/basic-macros.lisp Tue Jul 20 16:50:56 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Wed Nov 8 18:44:57 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: basic-macros.lisp,v 1.27 2004/07/15 21:06:46 ffjeld Exp $ +;;;; $Id: basic-macros.lisp,v 1.28 2004/07/20 23:50:56 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -61,6 +61,13 @@ `(progn (muerte::define-compiler-macro-compile-time ,name ,lambda-list ,body) ',name)) + +(defmacro define-primitive-function (function-name lambda-list docstring &body body) + (declare (ignore lambda-list)) + (assert (stringp docstring) (docstring) + "Mandatory docstring for define-primitive-function.") + `(make-primitive-function ,function-name ,docstring + ,(cons 'cl:progn body)))
(defmacro defpackage (package-name &rest options) (pushnew '(:use) options :key #'car)