patch.lisp

(in-package :cl-user)

(defpackage clim-lisp-patch
  (:use)
  (:export #:defconstant
           #:defclass
           #:describe
           #:describe-object
           #:interactive-stream-p))

(defmacro clim-lisp-patch:defconstant (symbol value &optional docu)
  (if (typep value '(or number character))
      `(cl:defconstant ,symbol ,value ,@(and docu (list docu)))
      `(defvar ,symbol ,value ,@(and docu (list docu)))))

(defvar clim-lisp-patch::*compile-time-clos-names* (make-hash-table))

(defun clim-lisp-patch::compile-time-clos-class-p (name)
  (gethash name clim-lisp-patch::*compile-time-clos-names* nil))

(defmacro clim-lisp-patch:defclass (name &rest args)
  `(progn
     (eval-when (:compile-toplevel)
       (setf (gethash ',name clim-lisp-patch::*compile-time-clos-names*) t))
     (cl:defclass ,name ,@args)))