mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-02-05 07:00:36 -08:00
Code Issues Projects Releases Packages Wiki Activity

Added optimizer for LDB-TEST

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2013-01-09 00:40:38 +01:00
parent b284b74e40
commit 4b2e293a48
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/cmp/cmpopt-bits.lsp
View file

@ -41,6 +41,9 @@
(ash ,integer %pos)))))))
whole))
(define-compiler-macro ldb-test (&rest args)
`(zerop (ldb ,@args)))
;;;
;;; ASH
;;; Bit fiddling. It is a bit tricky because C does not allow