X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=mop.lisp;h=82fcb471dd51affbf49563ddaecb06f244c5c7fa;hp=fb58968fdd5fb1cf0a81d9e91f9add0767f7ed52;hb=2f65fd6d93691f3943182138efd2013c3fdb67c7;hpb=e8c34efef61039ff3319203710b533be1a7906ca diff --git a/mop.lisp b/mop.lisp index fb58968..82fcb47 100644 --- a/mop.lisp +++ b/mop.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2003 ;;;; -;;;; $Id: mop.lisp,v 1.15 2003/06/25 18:08:09 kevin Exp $ +;;;; $Id$ ;;;; ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -42,7 +42,10 @@ #+kmr-cmucl-mop #:mop #+allegro #:mop #+lispworks #:clos - #+scl #:clos)) + #+scl #:clos + #+openmcl #:openmcl-mop + ) + ) (in-package #:kmr-mop) @@ -127,8 +130,7 @@ ;; 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