General discussion of Steel Bank Common Lisp

Christopher C. Stacy | 1 Jun 2005 09:20

ext:top-level-auto-declare

Is there something like EXT:*TOP-LEVEL-AUTO-DECLARE* for SBCL?

-------------------------------------------------------
This SF.Net email is sponsored by Yahoo.
Introducing Yahoo! Search Developer Network - Create apps using Yahoo!
Search APIs Find out how you can build Yahoo! directly into your own
Applications - visit http://developer.yahoo.net/?fr=offad-ysdn-ostg-q22005

Christophe Rhodes | 1 Jun 2005 10:33

Picon

Picon

Re: ext:top-level-auto-declare

"Christopher C. Stacy" <cstacy <at> dtpq.com> writes:

> Is there something like EXT:*TOP-LEVEL-AUTO-DECLARE* for SBCL?

No.

Cheers,

Christophe

-------------------------------------------------------
This SF.Net email is sponsored by Yahoo.
Introducing Yahoo! Search Developer Network - Create apps using Yahoo!
Search APIs Find out how you can build Yahoo! directly into your own
Applications - visit http://developer.yahoo.net/?fr=offad-ysdn-ostg-q22005

Vadim Nasardinov | 4 Jun 2005 22:24

Picon

x86-arch.c:268: error: invalid lvalue in assignment

I'm having trouble rebuilding the binary RPM sbcl-0.9.0.18-1.i386.rpm
from the source RPM sbcl-0.9.0.18-1.src.rpm provided at

  http://sourceforge.net/project/showfiles.php?group_id=1373

I grabbed both of these from one of Sourceforge mirrors like so:

 | $ curl -O http://easynews.dl.sourceforge.net/sourceforge/sbcl/sbcl-0.9.0.18-1.src.rpm
 | $ curl -O http://easynews.dl.sourceforge.net/sourceforge/sbcl/sbcl-0.9.0.18-1.i386.rpm

I installed the binary RPM in order to bootstrap:

 | $ sudo rpm -Uvh sbcl-0.9.0.18-1.i386.rpm

I then installed the source RPM and attempted a rebuild:

 | $ rpm -ivh sbcl-0.9.0.18-1.src.rpm
 | $ rpmbuild -ba SPECS/sbcl-0.9.0.18-1.spec > sbcl-log.txt 2>&1

The build process goes on for about 8 minutes, produces about 16000
lines of output and terminates with the following error:

 | In file included from x86-arch.c:24:
 | interr.h:15: warning: type qualifiers ignored on function return type
 | x86-arch.c: In function 'arch_skip_instruction':
 | x86-arch.c:88: error: invalid lvalue in increment
 | x86-arch.c: In function 'sigtrap_handler':
 | x86-arch.c:268: error: invalid lvalue in assignment
 | x86-arch.c:273: error: invalid lvalue in assignment
 | gmake: *** [x86-arch.o] Error 1

(Continue reading)

Vadim Nasardinov | 4 Jun 2005 22:44

Picon

Re: x86-arch.c:268: error: invalid lvalue in assignment

On Sat, 2005-06-04 at 16:24 -0400, Vadim Nasardinov wrote:
> Is it a GCC 4.0 problem?

Google says it is:

http://www.google.com/search?q=%22GCC+4.0%22+%22invalid+lvalue+in+assignment%22

-------------------------------------------------------
This SF.Net email is sponsored by: NEC IT Guy Games.  How far can you shotput
a projector? How fast can you ride your desk chair down the office luge track?
If you want to score the big prize, get to know the little guy.  
Play to win an NEC 61" plasma display: http://www.necitguy.com/?r=20

Russell McManus | 5 Jun 2005 03:07

Picon

useful code snippet


While writing some code using run-program, I came upon the need for
the following:

(defmacro with-current-directory ((new-dir) &body body)
  (let ((start (gensym)))
    `(let ((,start (sb-unix:posix-getcwd)))
      (unless (char= #\\ (aref ,start (1- (length ,start))))
	(setf ,start (concatenate 'string ,start "/")))
      (setf ,start (parse-namestring ,start))
      (unwind-protect
	   (progn
	     (sb-posix:chdir ,new-dir)
	     , <at> body)
	(sb-posix:chdir ,start)))))

Is there an already existing way to do this sort of thing?

-russ

-------------------------------------------------------
This SF.Net email is sponsored by: NEC IT Guy Games.  How far can you shotput
a projector? How fast can you ride your desk chair down the office luge track?
If you want to score the big prize, get to know the little guy.  
Play to win an NEC 61" plasma display: http://www.necitguy.com/?r=20

Christophe Rhodes | 5 Jun 2005 10:37

Picon

Picon

Re: useful code snippet

Russell McManus <russell_mcmanus <at> yahoo.com> writes:

> While writing some code using run-program, I came upon the need for
> the following:
>
> (defmacro with-current-directory ((new-dir) &body body)
>   (let ((start (gensym)))
>     `(let ((,start (sb-unix:posix-getcwd)))
>       (unless (char= #\\ (aref ,start (1- (length ,start))))
> 	(setf ,start (concatenate 'string ,start "/")))
>       (setf ,start (parse-namestring ,start))
>       (unwind-protect
> 	   (progn
> 	     (sb-posix:chdir ,new-dir)
> 	     , <at> body)
> 	(sb-posix:chdir ,start)))))
>
> Is there an already existing way to do this sort of thing?

No.  There is at least a plausible argument that RUN-PROGRAM should
respect *DEFAULT-PATHNAME-DEFAULTS* by chdir()ing to the directory
component, which would allow the user to request a different directory
for run-program simply by binding it.  On the other hand, RUN-PROGRAM
is already a deeply scary mess of options, and adding another doesn't
really appeal...

Cheers,

Christophe

(Continue reading)

Russell McManus | 5 Jun 2005 19:42

Picon

Re: useful code snippet

Christophe Rhodes <csr21 <at> cam.ac.uk> writes:

> Russell McManus <russell_mcmanus <at> yahoo.com> writes:
>
>> While writing some code using run-program, I came upon the need for
>> the following:
>>
>> (defmacro with-current-directory ((new-dir) &body body)
>>   (let ((start (gensym)))
>>     `(let ((,start (sb-unix:posix-getcwd)))
>>       (unless (char= #\\ (aref ,start (1- (length ,start))))
>> 	(setf ,start (concatenate 'string ,start "/")))
>>       (setf ,start (parse-namestring ,start))
>>       (unwind-protect
>> 	   (progn
>> 	     (sb-posix:chdir ,new-dir)
>> 	     , <at> body)
>> 	(sb-posix:chdir ,start)))))
>>
>> Is there an already existing way to do this sort of thing?
>
> No.  There is at least a plausible argument that RUN-PROGRAM should
> respect *DEFAULT-PATHNAME-DEFAULTS* by chdir()ing to the directory
> component, which would allow the user to request a different directory
> for run-program simply by binding it.  On the other hand, RUN-PROGRAM
> is already a deeply scary mess of options, and adding another doesn't
> really appeal...

I agree about *DEFAULT-PATHNAME-DEFAULTS*, and indeed I tried this
first, hoping that it would "just work".  I would be willing the

(Continue reading)

Andreas Fuchs | 5 Jun 2005 21:46

Re: useful code snippet

Today, Russell McManus <russell_mcmanus <at> yahoo.com> wrote:
>
> While writing some code using run-program, I came upon the need for
> the following:

autobench uses a similar macro, so I have a few questions about your
code.

One, wouldn't it be better if the macro also bound
*default-pathname-defaults* to the new-dir? (My implementation assumes
that the user(me) will consistently use with-current-directory and so
skips the whole getcwd thing in favor of just chdir-ing back into
*d-p-defaults*)

> (defmacro with-current-directory ((new-dir) &body body)
>   (let ((start (gensym)))
>     `(let ((,start (sb-unix:posix-getcwd)))
>       (unless (char= #\\ (aref ,start (1- (length ,start))))
> 	  (setf ,start (concatenate 'string ,start "/")))

Two, what's with that #\\ check? In which cases does getcwd return the
\ character as the last element?

>       (setf ,start (parse-namestring ,start))
>       (unwind-protect
> 	   (progn
> 	     (sb-posix:chdir ,new-dir)
> 	     , <at> body)
> 	(sb-posix:chdir ,start)))))

(Continue reading)

Nikodemus Siivola | 6 Jun 2005 09:25

Re: x86-arch.c:268: error: invalid lvalue in assignment

On Sat, 4 Jun 2005, Vadim Nasardinov wrote:

> Is it a GCC 4.0 problem?

Yes. Current CVS HEAD should build on GCC 4.0.

Cheers,

  -- Nikodemus              Schemer: "Buddha is small, clean, and serious."
                   Lispnik: "Buddha is big, has hairy armpits, and laughs."

-------------------------------------------------------
This SF.Net email is sponsored by: NEC IT Guy Games.  How far can you shotput
a projector? How fast can you ride your desk chair down the office luge track?
If you want to score the big prize, get to know the little guy.  
Play to win an NEC 61" plasma display: http://www.necitguy.com/?r=20

Florian Weimer | 6 Jun 2005 11:49

Picon

Re: useful code snippet

* Russell McManus:

> 	(sb-posix:chdir ,start)))))

I think you should use fchdir instead because it works in more cases
(deleted directory, unmount is prevented).

-------------------------------------------------------
This SF.Net email is sponsored by: NEC IT Guy Games.  How far can you shotput
a projector? How fast can you ride your desk chair down the office luge track?
If you want to score the big prize, get to know the little guy.  
Play to win an NEC 61" plasma display: http://www.necitguy.com/?r=20

Group

gmane.lisp.steel-bank.general.

Search Archive

Page

1 | 2 | 3 | 4

Articles in period: 37

June 2005

Language

Change language

Options

Current view: Threads only / Showing only 20 lines / Not hiding cited text.
Change to All messages, whole messages, or hide cited text.

Post a message
NNTP Newsgroup
Classic Gmane web interface
XML

XML

RSS Feed
List Information

About Gmane

Recent entries

there is no package with name "SB-EXT" (26 Apr 2013)
texinfo-5.1 (20 Apr 2013)
asdf-2.33 (13 Apr 2013)
Reading a file line-by-line (25 Mar 2013)
Problem loading drakma with quicklisp (23 Mar 2013)
error with cl-modlisp (18 Mar 2013)
[Extended Deadline] European Lisp Symposium 2013 - Madrid - June 1-4 (5 Mar 2013)
(make-package :foo) (in-package :foo) (10 Feb 2013)
Queues a la Peter Norvig (4 Feb 2013)
sb-ext:run-program question (29 Jan 2013)
gc bug (1 Jan 2013)
Help with SB-BSD-SOCKETS (18 Dec 2012)
No make.sh file for Mac OS X build (4 Dec 2012)
SBCL used memory reports from top and (room) differs (a lot) (30 Nov 2012)
question about let vs let* (27 Nov 2012)
broken pipe to gnuplot (16 Nov 2012)
Memory fault from (APPLY 'APPEND LIST) (19 Oct 2012)
Transient classes (29 Sep 2012)
Mac OS X - 1.0.58 + threads (25 Sep 2012)
with-compilation-unit's reports re aborted units (10 Sep 2012)
test return code 104 (was Re: sbcl on RedHat Enterprise Linux 6) (15 Aug 2012)

Archives

10	April 2013
17	March 2013
8	February 2013
9	January 2013
4	December 2012
14	November 2012
10	October 2012
10	September 2012
12	August 2012
40	July 2012
13	June 2012
58	May 2012
16	April 2012
17	March 2012
22	February 2012
9	January 2012
21	December 2011
21	November 2011
25	October 2011
21	September 2011
38	August 2011
15	July 2011
28	June 2011
17	May 2011
31	April 2011
5	March 2011
31	February 2011
17	January 2011
19	December 2010
41	November 2010
33	October 2010
43	September 2010
31	August 2010
43	July 2010
24	June 2010
8	May 2010
59	April 2010
55	March 2010
44	February 2010
26	January 2010
31	December 2009
46	November 2009
59	October 2009
52	September 2009
35	August 2009
48	July 2009
58	June 2009
29	May 2009
15	April 2009
18	March 2009
31	February 2009
33	January 2009
83	December 2008
42	November 2008
52	October 2008
19	September 2008
52	August 2008
24	July 2008
25	June 2008
1	May 2008
13	April 2008
28	March 2008
17	February 2008
36	January 2008
59	December 2007
9	November 2007
16	October 2007
11	September 2007
24	August 2007
31	July 2007
31	June 2007
60	May 2007
40	April 2007
50	March 2007
37	February 2007
41	January 2007
69	December 2006
20	November 2006
39	October 2006
51	September 2006
23	August 2006
11	July 2006
29	June 2006
19	May 2006
26	April 2006
19	March 2006
37	February 2006
45	January 2006
24	December 2005
30	November 2005
17	October 2005
28	September 2005
26	August 2005
33	July 2005
37	June 2005
69	May 2005
65	April 2005
39	March 2005
32	February 2005
24	January 2005
27	December 2004
80	November 2004
20	October 2004
38	September 2004
14	August 2004
23	July 2004
15	June 2004
18	May 2004
69	April 2004
21	March 2004
15	February 2004
32	January 2004
19	December 2003
14	November 2003
3	October 2003
27	September 2003
28	August 2003
3	July 2003
10	June 2003
27	May 2003
14	March 2003
4	February 2003
5	January 2003
8	December 2002
3	September 2002
2	August 2002
5	May 2002

Design

Zawodny | Right Menu | Left Menu

Your Own Design

Paste the URL of your CSS below. Download CSS template