New system for SICL-specific lexical environments (diffs wrt Trucler).

Code/Lexical-environment/generic-function-description.lisp

@@ -0,0 +1,16 @@
+(cl:in-package #:sicl-lexical-environment)
+
+(defclass generic-function-description (trucler:generic-function-description)
+  ((%generic-function-class-name
+    :initarg :generic-function-class-name
+    :reader generic-function-class-name)
+   (%method-class-name
+    :initarg :method-class-name
+    :reader method-class-name)
+   (%method-combination-name
+    :initarg :method-combination-name
+    :reader method-combination-name)
+   (%method-combination-arguments
+    :initform '()
+    :initarg :method-combination-arguments
+    :reader method-combination-arguments)))

Code/Lexical-environment/packages.lisp

@@ -0,0 +1,16 @@
+(cl:in-package #:common-lisp-user)
+
+(defpackage #:sicl-lexical-environment
+  (:use #:common-lisp)
+  (:shadowing-import-from
+   #:trucler
+   .
+   #.(loop for symbol being each external-symbol in '#:trucler
+           unless (member symbol '(trucler:generic-function-description))
+             collect (symbol-name symbol)))
+  (:export
+   #:generic-function-description
+   .
+   #.(loop for symbol being each external-symbol in '#:trucler
+           unless (member symbol '(trucler:generic-function-description))
+             collect (symbol-name symbol))))

Code/Lexical-environment/sicl-lexical-environment.asd

@@ -0,0 +1,10 @@
+(cl:in-package #:asdf-user)
+
+(defsystem #:sicl-lexical-environment
+  :depends-on (#:trucler
+               #:trucler-reference)
+  :serial t
+  :components
+  ((:file "packages")
+   (:file "generic-function-description")))
+