Author: rklochkov Date: Sat Dec 8 21:48:36 2012 New Revision: 7
Log: Fixed typo
Modified: src.lisp
Modified: src.lisp ============================================================================== --- src.lisp Sat Dec 8 21:47:35 2012 (r6) +++ src.lisp Sat Dec 8 21:48:36 2012 (r7) @@ -251,9 +251,9 @@
(defmacro %set-handler (handler-list key name &body handler-body) "Local macros for push-* functions. No gensyms intended." - (set-handler ,handler-list ,key - (lambda (,name package) - (declare (ignore package)) . ,handler-body))) + `(set-handler ,handler-list ,key + (lambda (,name package) + (declare (ignore package)) . ,handler-body)))
(defun push-import-prefix (prefix &optional (package *package*)) "Enables using package name omitting prefix. @@ -273,8 +273,7 @@ after that reducers:... will refer to new package, not com.clearly-useful.reducers. " (%set-handler (package-finders package) (list :prefix prefix) name - (or (cl:find-package name) - (cl:find-package (concatenate 'string prefix "." name))))) + (cl:find-package (concatenate 'string prefix "." name))))
(defun push-local-nickname (long-package nick &optional (current-package *package*)) @@ -296,7 +295,7 @@ " (let ((dpackage (find-package long-package))) (%set-handler (package-finders current-package) (list :nick long-package nick) name - (when (string= name (string nick)) dpackage)))) + (when (string= name (string nick)) dpackage))))
(defun push-local-package (symbol local-package) "Sets local-package for a symbol. Many macroses use there own clauses. @@ -313,8 +312,8 @@ " (let ((dpackage (find-package local-package))) (%set-handler (extra-finders symbol) (list :nick long-package nick) name - (multiple-value-bind (symbol status) (cl:find-symbol name dpackage) - (when (eq status :external) symbol))))) + (multiple-value-bind (symbol status) (cl:find-symbol name dpackage) + (when (eq status :external) symbol)))))
;;; ;;; Readtable analysis and change