Skip to content
Snippets Groups Projects
Commit 9150a877 authored by pfdietz's avatar pfdietz
Browse files

Ignore errors in define-setf-expander forms

parent 8fbe1c7d
No related branches found
No related tags found
No related merge requests found
...@@ -12,20 +12,21 @@ ...@@ -12,20 +12,21 @@
(defun my-car (x) (car x)) (defun my-car (x) (car x))
(defparameter *define-setf-expander-vals.1* (ignore-errors
(multiple-value-list (defparameter *define-setf-expander-vals.1*
(define-setf-expander my-car (place &environment env) (multiple-value-list
(multiple-value-bind (temps vals stores set-form get-form) (define-setf-expander my-car (place &environment env)
(get-setf-expansion place env) (multiple-value-bind (temps vals stores set-form get-form)
(declare (ignore stores set-form)) (get-setf-expansion place env)
(let ((store (gensym)) (declare (ignore stores set-form))
(temp (gensym))) (let ((store (gensym))
(values (temp (gensym)))
`(,@temps ,temp) (values
`(,@vals ,get-form) `(,@temps ,temp)
`(,store) `(,@vals ,get-form)
`(progn (rplaca ,temp ,store) ,store) `(,store)
`(my-car ,temp))))))) `(progn (rplaca ,temp ,store) ,store)
`(my-car ,temp))))))))
(deftest define-setf-expander.1 (deftest define-setf-expander.1
*define-setf-expander-vals.1* *define-setf-expander-vals.1*
......
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