mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-18 23:32:17 -08:00
Code Issues Projects Releases Packages Wiki Activity

Missing argument to LOGAND

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-12-18 21:36:46 +01:00
parent 8b02d96774
commit ddc7080758
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -75,7 +75,7 @@
;;; TYPE PROPAGATION
;;;
(def-type-propagator logand (&rest args)
(def-type-propagator logand (fname &rest args)
(values args
(if args
(dolist (int-type '((UNSIGNED-BYTE 8) FIXNUM) 'integer)