Skip to content
Snippets Groups Projects
Commit d5482d1d authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Update fare-quasiquote-optima to work with the latest optima.

parent b53225a4
No related branches found
No related tags found
No related merge requests found
......@@ -2,5 +2,5 @@
(defsystem "fare-quasiquote-optima"
#+asdf3 :version #+asdf3 (:read-file-line "version.text")
:depends-on ("fare-quasiquote" "optima")
:depends-on ("fare-quasiquote" (:version "optima" "0.2"))
:components ((:file "fare-quasiquote-optima")))
......@@ -27,14 +27,14 @@
(content-pattern
&aux (subpatterns (list content-pattern))))))
(defmethod optima::destructor-equal ((x quasiquote-vector-pattern) (y quasiquote-vector-pattern))
(defmethod optima::constructor-pattern-destructor-sharable-p
((x quasiquote-vector-pattern) (y quasiquote-vector-pattern))
t)
(defmethod optima::destructor-predicate-form ((pattern quasiquote-vector-pattern) var)
`(simple-vector-p ,var))
(defmethod optima::destructor-forms ((pattern quasiquote-vector-pattern) var)
`((coerce ,var 'cl:list)))
(defmethod optima::constructor-pattern-make-destructor ((pattern quasiquote-vector-pattern) var)
(optima::make-destructor
:predicate-form `(simple-vector-p ,var)
:accessor-forms (list `(coerce ,var 'cl:list))))
(defmethod optima::parse-constructor-pattern ((name (eql 'make-vector)) &rest args)
(optima:match args
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment