Work at SourceForge, help us to make it a better place! We have an immediate need for a Support Technician in our San Francisco or Denver office.


Diff of /src/clos/standard.lsp [3fc093] .. [88db3f] Maximize Restore

  Switch to side-by-side view

--- a/src/clos/standard.lsp
+++ b/src/clos/standard.lsp
@@ -355,13 +355,6 @@
     (finalize-unless-forward subclass))
-(defun std-create-slots-table (class)
-  (let* ((all-slots (class-slots class))
-	 (table (make-hash-table :size (max 32 (length all-slots)))))
-    (dolist (slotd (class-slots class))
-      (setf (gethash (slot-definition-name slotd) table) slotd))
-    (setf (slot-table class) table)))
 (defmethod finalize-inheritance ((class std-class))
   (std-create-slots-table class)
@@ -369,6 +362,10 @@
 (defmethod compute-class-precedence-list ((class class))
   (compute-clos-class-precedence-list class (class-direct-superclasses class)))
+(eval-when (:compile-toplevel :execute)
+  (defmacro mapappend (fun &rest args)
+    `(reduce #'append (mapcar ,fun ,@args))))
 (defmethod compute-slots ((class class))
   ;; INV: for some classes ECL expects that the order of the inherited slots is