;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Dec 2002
;;;;
-;;;; $Id: console.lisp,v 1.1 2002/12/13 21:59:57 kevin Exp $
+;;;; $Id: console.lisp,v 1.2 2003/06/25 20:13:36 kevin Exp $
;;;;
;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;; and by onShore Development, Inc.
"Format output to console"
(when *console-msgs*
(setq template (concatenate 'string "~&;; " template "~%"))
- (apply #'format t template args))
- (values))
+ (apply #'format t template args))))
(defun cmsg-c (condition template &rest args)
"Push CONDITION keywords into *console-msgs-types* to print console msgs
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2003
;;;;
-;;;; $Id: mop.lisp,v 1.15 2003/06/25 18:08:09 kevin Exp $
+;;;; $Id: mop.lisp,v 1.16 2003/06/25 20:11:54 kevin Exp $
;;;;
;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
#+kmr-cmucl-mop #:mop
#+allegro #:mop
#+lispworks #:clos
- #+scl #:clos))
+ #+scl #:clos
+ #+openmcl #:openmcl-mop
+ ))
(in-package #:kmr-mop)
;; note: make-method-lambda is not fbound
)
#+openmcl
- '(openmcl-mop::standard-class
- openmcl-mop::slot-definition-name openmcl-mop:finalize-inheritance
+ '(openmcl-mop::slot-definition-name openmcl-mop:finalize-inheritance
openmcl-mop::standard-direct-slot-definition openmcl-mop::standard-effective-slot-definition
openmcl-mop::validate-superclass openmcl-mop:direct-slot-definition-class openmcl-mop::effective-slot-definition-class
openmcl-mop:compute-effective-slot-definition