projects
/
kmrcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'master' of ssh://git.b9.com/home/gitpub/kmrcl
[kmrcl.git]
/
attrib-class.lisp
diff --git
a/attrib-class.lisp
b/attrib-class.lisp
index b102eca9300d33edb1e92ac8ce42dfc507b50cd6..453da1bfe5425c8e4524c7413cd01d4941e740da 100644
(file)
--- a/
attrib-class.lisp
+++ b/
attrib-class.lisp
@@
-1,4
+1,4
@@
-;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10
; Package: kmrcl
-*-
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10-*-
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
@@
-7,9
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id$
-;;;;
-;;;; This file, part of KMRCL, is Copyright (c) 2002-2003 by Kevin M. Rosenberg
+;;;; This file, part of KMRCL, is Copyright (c) 2002-2010 by Kevin M. Rosenberg
;;;;
;;;; KMRCL users are granted the rights to distribute and use this software
;;;; as governed by the terms of the Lisp Lesser GNU Public License
;;;;
;;;; KMRCL users are granted the rights to distribute and use this software
;;;; as governed by the terms of the Lisp Lesser GNU Public License
@@
-41,22
+39,22
@@
on example from AMOP"))
;; encapsulating macro for Lispworks
(kmr-mop:process-slot-option attributes-class :attributes)
;; encapsulating macro for Lispworks
(kmr-mop:process-slot-option attributes-class :attributes)
-#+(or cmu scl sbcl
openm
cl)
+#+(or cmu scl sbcl
c
cl)
(defmethod kmr-mop:validate-superclass ((class attributes-class)
(superclass kmr-mop:standard-class))
t)
(defmethod kmr-mop:validate-superclass ((class attributes-class)
(superclass kmr-mop:standard-class))
t)
-(defmethod kmr-mop:direct-slot-definition-class ((cl attributes-class) #+kmr
-
normal-dsdc &rest initargs)
+(defmethod kmr-mop:direct-slot-definition-class ((cl attributes-class) #+kmr
cl::
normal-dsdc &rest initargs)
(declare (ignore initargs))
(kmr-mop:find-class 'attributes-dsd))
(declare (ignore initargs))
(kmr-mop:find-class 'attributes-dsd))
-(defmethod kmr-mop:effective-slot-definition-class ((cl attributes-class) #+kmr
-
normal-dsdc &rest initargs)
+(defmethod kmr-mop:effective-slot-definition-class ((cl attributes-class) #+kmr
cl::
normal-dsdc &rest initargs)
(declare (ignore initargs))
(kmr-mop:find-class 'attributes-esd))
(defmethod kmr-mop:compute-effective-slot-definition
(declare (ignore initargs))
(kmr-mop:find-class 'attributes-esd))
(defmethod kmr-mop:compute-effective-slot-definition
- ((cl attributes-class) #+kmr
-
normal-cesd name dsds)
- #+kmr
-
normal-cesd (declare (ignore name))
+ ((cl attributes-class) #+kmr
cl::
normal-cesd name dsds)
+ #+kmr
cl::
normal-cesd (declare (ignore name))
(let ((esd (call-next-method)))
(setf (esd-attributes esd) (remove-duplicates (mapappend #'dsd-attributes dsds)))
esd))
(let ((esd (call-next-method)))
(setf (esd-attributes esd) (remove-duplicates (mapappend #'dsd-attributes dsds)))
esd))