armedbear-ticket

Download

armedbear-ticket@common-lisp.net

December 2008

1 participants
22 discussions

Re: [armedbear-ticket] [armedbear] #15: compilation of forms with keywords having the same name as special variables fails
by armedbear 09 Dec '08

09 Dec '08

#15: compilation of forms with keywords having the same name as special variables fails -------------------------+-------------------------------------------------- Reporter: mevenson | Owner: somebody Type: defect | Status: closed Priority: major | Milestone: unscheduled Component: component1 | Version: 1.0 Resolution: fixed | Keywords: compiler -------------------------+-------------------------------------------------- Changes (by ehuelsmann): * status: new => closed * resolution: => fixed Comment: Fixed in r11437. -- Ticket URL: <http://127.0.0.1:8000/armedbear/ticket/15#comment:1> armedbear <http://common-lisp.net/project/armedbear> armedbear

1 0

[armedbear-ticket] [armedbear] #22: keyword parameters by same name as global variable
by armedbear 08 Dec '08

08 Dec '08

#22: keyword parameters by same name as global variable ------------------------+--------------------------------------------------- Reporter: ehuelsmann | Owner: somebody Type: defect | Status: new Priority: major | Milestone: Component: component1 | Version: Keywords: | ------------------------+--------------------------------------------------- Don Cohen writes that the code below is problematic. Especially because of the DEFVAR form. ==== /tmp/build1 (in-package :cl-user) (defpackage "AP5" (:use "CL") (:nicknames "ap5")) (in-package :ap5) (load "/tmp/compile.lsp" :print t) (setf source-default-path "/backup/shuttle/home/don/ap5-2006/foo.lsp" bin-default-path "/tmp/build-ap5/foo.fas") (ensure-directories-exist bin-default-path) (COMPILE-AP5 :recompile t) ;;(compile-ap5 :ask t) ==== /tmp/compile.lsp (in-package "AP5") (defvar info nil) (defvar ask nil) (defvar recompile nil) (defvar nevercompile nil) (defvar *changed* nil) (defvar startfile nil) (defvar stopfile t) (defvar *start-time* 0) (defun compile-ap5 (&key recompile nevercompile info ask (break-at-end #+symbolics t) startfile (stopfile t) &aux *changed* (*start-time* (get-universal-time)) #+(or symbolics ti) (global:inhibit-fdefine- warnings t)) ; (compile-load "sys-depend") (declare (special generator-cost-record record-expensive-and-costs)) ) -- Ticket URL: <http://127.0.0.1:8000/armedbear/ticket/22> armedbear <http://common-lisp.net/project/armedbear> armedbear

1 2