From fdd40bcfac9329e4801a28505be12bfc0b24926a Mon Sep 17 00:00:00 2001 From: Stas Boukarev Date: Wed, 15 Aug 2012 05:00:23 +0400 Subject: [PATCH] Remove unused code. --- disk.lisp | 16 ---------------- 1 file changed, 16 deletions(-) diff --git a/disk.lisp b/disk.lisp index f4a2fc9..c662620 100644 --- a/disk.lisp +++ b/disk.lisp @@ -186,22 +186,6 @@ (defun make-s-package (package) (vector-push-extend package *read-packages*)) -(defun find-s-package (package) - (loop for i below (length *read-packages*) - for stored-package = (aref *read-packages* i) - when (eq package stored-package) - return i - finally (return (values (make-s-package package) t)))) - -(defun s-intern (symbol) - (multiple-value-bind (package-id new-package) - (find-s-package (symbol-package symbol)) - (let* ((existing (and (not new-package) - (position symbol *read-symbols*))) - (symbol-id (or existing - (vector-push-extend symbol *read-symbols*)))) - (values package-id symbol-id new-package (not existing))))) - (defun find-s-package-for-writing (package) (or (gethash package *write-packages*) (values (setf (gethash package *write-packages*)