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

Fixed typo

Browse source
This commit is contained in:
jjgarcia 2003-09-22 07:51:34 +00:00
parent 91c95f41cf
commit 018224ae87
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/cmp/cmpfun.lsp
View file

@ -380,8 +380,8 @@
(c1expr `(the fixnum (ldb1 ,size ,pos ,(second args))))))
(put-sysprop 'ldb1 :INLINE-ALWAYS
'((fixnum fixnum fixnum) fixnum nil nil
"((((~(-1 << (#0))) << (#1)) & (#2)) >> (#1))"))
'(((fixnum fixnum fixnum) fixnum nil nil
"((((~(-1 << (#0))) << (#1)) & (#2)) >> (#1))")))
;----------------------------------------------------------------------