Re-added mv-bind. Fixed bug in abbrev.

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)

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

rutils.asd

@@ -6,7 +6,7 @@
 
 (defsystem #:rutils
   :name "Reasonable utilities"
-  :version "0.3.2"
+  :version "0.3.4"
   :maintainer "Vsevolod Dyomkin <vseloved@gmail.com>"
   :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")

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)