Custom Query (1030 matches)

When used on macros, ccl:arglist interns symbols from the lambda list into the current package:

(defpackage :foo (:use :cl))
#<Package "FOO">
? (in-package :foo)
#<Package "FOO">
? (defmacro bar (bar10))
;Compiler warnings :
;   In BAR: Unused lexical variable BAR10
BAR
? (in-package :cl-user)
#<Package "COMMON-LISP-USER">
? (find-symbol "BAR10")
NIL
NIL
? (ccl:arglist 'foo::bar t)
(BAR10)
:DECLARATION
? (find-symbol "BAR10")
BAR10
:INTERNAL

Using 1.6-dev-r14265M-trunk (LinuxX8632):

(ccl::foreign-type-alignment (ccl::parse-foreign-type :signed-doubleword)) 64

The correct value is 32

paracetamol 65_> mkdir /tmp/abc paracetamol 66_> ccl -n Welcome to Clozure Common Lisp Version 1.2-r9337S (FreebsdX8664)! ? (ccl::%rmdir "/tmp/abc") -12 ? (quit) lparacetamol 67_> ls -lsd /tmp/abc 2 drwxrwxr-x 2 hans wheel 512 Apr 30 23:35 /tmp/abc/ paracetamol 68_> uname -a FreeBSD paracetamol.bknr.net 6.3-RELEASE FreeBSD 6.3-RELEASE #0: Wed Jan 16 01:43:02 UTC 2008 root@…:/usr/obj/usr/src/sys/SMP amd64