From c42a35e8d09ec2c3b98a40157baf5300dabab935 Mon Sep 17 00:00:00 2001 From: Jan Moringen Date: Tue, 18 Feb 2014 04:12:47 +0100 Subject: [PATCH] unused stuff --- specializable.lisp | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) diff --git a/specializable.lisp b/specializable.lisp index e556db4..477342a 100644 --- a/specializable.lisp +++ b/specializable.lisp @@ -44,23 +44,20 @@ (remove-duplicates (mapcar #'sb-mop:method-generic-function (sb-mop:specializer-direct-methods specializer)))) (defclass specializable-generic-function (standard-generic-function) - ((extended-specializers :initform (make-hash-table :test 'equal) - :reader generic-function-extended-specializers) - (emf-table :initform (make-hash-table :test 'equal) :reader emf-table) + ((emf-table :initform (make-hash-table :test 'equal) :reader emf-table) (cacheingp :initform t :initarg :cacheingp) (single-arg-cacheing-p :initform t :initarg :single-arg-cacheing-p)) (:metaclass sb-mop:funcallable-standard-class) (:default-initargs :method-class (find-class 'specializable-method))) -(defclass specializable-method (standard-method) - ((lambda-expression :initarg :lambda-expression - :accessor specializable-method-lambda-expression))) +;;; TODO: we don't use this class yet, but we might do later +(defclass specializable-method (standard-method) ()) (defmacro define-extended-specializer (name (gf-var &rest args) &body body) ;; FIXME: unparser `(setf (get ',name 'extended-specializer-parser) - (lambda (,gf-var ,@args) - ,@body))) + (lambda (,gf-var ,@args) + ,@body))) ;; doesn't work, because we'd have to dump GF into the fasl for the macro ;; expansion -- 2.39.5