added (def layer* ...)
Mon Aug 18 01:51:30 PDT 2008 attila.lendvai@gmail.com
* added (def layer* ...)
Warning: CRC errors found. These are probably harmless but should be repaired.
See 'darcs gzcrcs --help' for more information.
diff -rN -u old-defclass-star/defclass-star.asd new-defclass-star/defclass-star.asd
--- old-defclass-star/defclass-star.asd 2014-04-17 00:10:12.000000000 -0700
+++ new-defclass-star/defclass-star.asd 2014-04-17 00:10:12.000000000 -0700
@@ -92,3 +92,8 @@
:requires (:defclass-star :cl-def)
:components ((:module :integration
:components ((:file "cl-def-integration")))))
+
+(defsystem-connection defclass-star-and-cl-def-and-contextl
+ :requires (defclass-star-and-cl-def defclass-star-and-contextl)
+ :components ((:module :integration
+ :components ((:file "cl-def-and-contextl-integration")))))
diff -rN -u old-defclass-star/integration/cl-def-and-contextl-integration.lisp new-defclass-star/integration/cl-def-and-contextl-integration.lisp
--- old-defclass-star/integration/cl-def-and-contextl-integration.lisp 1969-12-31 16:00:00.000000000 -0800
+++ new-defclass-star/integration/cl-def-and-contextl-integration.lisp 2014-04-17 00:10:12.000000000 -0700
@@ -0,0 +1,27 @@
+;; -*- mode: Lisp; Syntax: Common-Lisp; -*-
+;;;
+;;; Copyright (c) 2007 by the authors.
+;;;
+;;; See LICENCE for details.
+
+(in-package :defclass-star)
+
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (use-package :cl-def :defclass-star))
+
+(def (definer :available-flags "eas") layer* (name supers slots &rest class-options)
+ (build-defclass-like-cl-def-expansion
+ name supers slots class-options -options-
+ (lambda (processed-slots clean-options)
+ `(deflayer ,name ,supers
+ ,processed-slots
+ ,@clean-options))))
+
+(integrated-export 'layer* :cl-def)
+
+#|
+
+(def (layer* eas) foo (super)
+ ((slot1 42 :export :slot)))
+
+|#