mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-04-27 19:50:44 -07:00
Code Issues Projects Releases Packages Wiki Activity

The compiler macro for ASSOC also works for general test/keyword arguments.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-05-14 16:49:38 +02:00
parent 3681bcd018
commit ef6c5dab48
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/cmp/cmpopt-sequence.lsp
View file

@ -171,16 +171,16 @@
(return-from expand-assoc
`(ffi:c-inline (,value ,list) (:object :object) :object
"ecl_assqlp(#0,#1)" :one-liner t :side-effects nil)))))
#+(or)
(when test-function
(ext:with-unique-names (%value %sublist %elt %key %car)
`(let ((,%value ,value)
,@init)
(do-in-list (,%elt ,%sublist ,list)
(let ((,%car (cons-car (optional-type-check ,%elt cons))))
(when ,(funcall test-function %value
(funcall key-function %car))
(return ,%elt)))))))))
(when ,%elt
(let ((,%car (cons-car (optional-type-check ,%elt cons))))
(when ,(funcall test-function %value
(funcall key-function %car))
(return ,%elt))))))))))
(define-compiler-macro assoc (&whole whole value list &rest sequence-args)
(if (policy-inline-sequence-functions)