diff --git a/bind.lisp b/bind.lisp index 5e88054..360463e 100644 --- a/bind.lisp +++ b/bind.lisp @@ -23,8 +23,7 @@ is similar to <_:fun let* />, rather than <_:fun let />" (car rez))) (defparameter *bind-dispatch-table* - (make-array 0 :fill-pointer t - #+openmcl :adjustable #+openmcl t) + (make-array 0 :fill-pointer t :adjustable t) "A vector, storing BIND-RULES") (defmacro def-bind-rule (rule expansion) diff --git a/core.lisp b/core.lisp index b1eb32e..0719eee 100644 --- a/core.lisp +++ b/core.lisp @@ -15,10 +15,10 @@ "Abbreviate a <_:arg long /> MACRO or FUNCTION name as <_:arg short />" `(eval-always (cond - ((special-operator-p ',long) - (error "Can't ABBREViate a special-operator ~a" ',long)) ((macro-function ',long) (setf (macro-function ',short) (macro-function ',long))) + ((special-operator-p ',long) + (error "Can't ABBREViate a special-operator ~a" ',long)) ((fboundp ',long) (setf (fdefinition ',short) (fdefinition ',long))) (t diff --git a/rutils.asd b/rutils.asd index a795747..bf8bc00 100644 --- a/rutils.asd +++ b/rutils.asd @@ -6,7 +6,7 @@ (defsystem #:rutils :name "Reasonable utilities" - :version "0.3.2" + :version "0.3.4" :maintainer "Vsevolod Dyomkin " :licence "3-clause MIT licence" :description "A reasonable collection of basic utilities for syntactic ~ @@ -15,7 +15,6 @@ CL history by efforts of different individuals, and gathered under ~ the unbrella of a hierarchy of packages, which can be used ~ selectively on demand. Includes user-space CDR's (see http://cdr.eurolisp.org)" - :depends-on (:closer-mop) :serial t :components ((:file "packages") (:file "impl") diff --git a/short.lisp b/short.lisp index 70fe609..8af65c8 100644 --- a/short.lisp +++ b/short.lisp @@ -16,7 +16,6 @@ (:method ((to (eql 'keyword)) smth &key format &allow-other-keys) (mkeyw smth :format format))) -#-clisp (abbrev mv-bind multiple-value-bind) (abbrev ds-bind destructuring-bind)