;;;; in Text, HTML, and XML formats. This includes hyperlinking
;;;; capability and sub-objects.
;;;;
-;;;; $Id: mop.lisp,v 1.18 2003/03/29 04:00:37 kevin Exp $
+;;;; $Id: mop.lisp,v 1.19 2003/03/29 04:06:29 kevin Exp $
;;;;
;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
;;;;
#+(or sbcl scl cmu)
(defparameter *queued-definitions* nil)
-#+(or sbcl scl cmu)
+
(defun process-queued-definitions ()
+ #+(or sbcl scl cmu)
(dolist (def *queued-definitions*)
(eval def))
(setq *queued-definitions* nil))
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: sql.lisp,v 1.3 2003/03/29 04:04:21 kevin Exp $
+;;;; $Id: sql.lisp,v 1.4 2003/03/29 04:10:44 kevin Exp $
;;;;
;;;; This file, part of Hyperobject-SQL, is
;;;; Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
(define-inverse cl esd))))
)
-(defgeneric sql-name ((cl hyperobject-class))
+(defgeneric sql-name (cl)
)
(defmethod sql-name ((cl hyperobject-class))