Apologies for multiple postings....


************************************************************************

   2nd European Lisp Symposium (ELS 2009)

   Milan, Italy, May 27-29, 2009
   Universita` degli Studi di Milano-Bicocca

   www.european-lisp-symposium.org

************************************************************************

CALL FOR PARTICIPATION
**********************

REGISTRATION IS OPEN AT www.european-lisp-symposium.org.
Check out the updated program.



Scope and Program Highlights:
*****************************

The purpose of the European Lisp Symposium is to provide a forum for
the discussion of all aspects of the design, implementation and
application of any of the Lisp dialects.  We encourage everyone
interested in Lisp to participate.

The European Lisp Symposium 2009 program includes presentations of
high quality papers about novel research results, insights and lessons
learned from practical applications, and educational perspectives, all
involving Lisp dialects, including Common Lisp, Scheme, Emacs Lisp,
AutoLisp, ISLISP, Dylan, Clojure, and so on.

The European Lisp Symposium will feature the following highlights:

- Scott McKay of ITA Software will talk about how Lisp use has evolved
in
    his circannual industry work.

- Mark Tarver of Lambda Associates will talk about Qi as a viral
    mutation of the Lisp DNA.

- Mauro Pezze` of University of Milan-Bicocca will host a panel on
    Programmers' Productivity from a Software Engineering point of view.

- Joao Pavao Martins and Ernesto Morgado of SISCOG will talk about
    the role of LISP in the success of SISCOG

- Christophe Rhodes will give an unportable tutorial.

- Michele Simionato will give a tutorial on Scheme module system and
    Scheme libraries portability issues across implementations.


Social Events:
**************

Friday 29th evening, Conference Banquet

Saturday 30th morning, Guided tour to the "Futurismo" Exhibit in
the center of Milan; 2009 marks the 100th anniversary of the Futurism
Manifesto; stretching it, the harbinger of Lisp 50 years later.


Program Chair:
**************

   * Antonio Leitao, Technical University of Lisbon, Portugal


Local Chair:
************

   * Marco Antoniotti, DISCo, Universita`† Milano Bicocca, Italy


Program committee:
******************

   * Giuseppe Attardi, Universita` di Pisa , Italy
   * Pascal Costanza, Vrije Universiteit Brussel, Belgium
   * Irene Durand, Universite` Bordeaux 1, France
   * Marc Feeley, Universite` de Montreal, Canada
   * Ron Garret, Amalgamated Widgets Unlimited, USA
   * Gregor Kiczales, University of British Columbia, Canada
   * Scott McKay, ITA Software, Inc., USA
   * Peter Norvig, Google Inc., USA
   * Julian Padget, University of Bath, UK
   * Kent Pitman, HyperMeta, USA
   * Christian Queinnec, Universite` Pierre et Marie Curie, France
   * Christophe Rhodes, Goldsmiths College, University of London, UK
   * Robert Strandh, Universite` Bordeaux 1, France
   * Mark Tarver, Lambda Associates, UK
   * Didier Verna, EPITA Research and Development Laboratory, France
   * JonL White, TheGingerIceCreamFactory of Palo Alto, USA
   * Taiichi Yuasa, Kyoto University, Japan


Registration Fees:
******************

   * Students EU100, regular EU220.

Registration will include the proceedings, coffee breaks,
the symposium dinner and other amenities.
Accommodation is not included.

Apologies for multiple postings....


************************************************************************

   2nd European Lisp Symposium (ELS 2009)

   Milan, Italy, May 27-29, 2009
   Universita` degli Studi di Milano-Bicocca

   www.european-lisp-symposium.org

************************************************************************

CALL FOR PARTECIPATION
**********************

REGISTRATION IS NOW OPEN AT www.european-lisp-symposium.org.
Take advantage of the early bird registration fee.


Scope and Program Highlights:
*****************************

The purpose of the European Lisp Symposium is to provide a forum for
the discussion of all aspects of the design, implementation and
application of any of the Lisp dialects.  We encourage everyone
interested in Lisp to participate.

The European Lisp Symposium 2009 program includes presentations of
high quality papers about novel research results, insights and lessons
learned from practical applications, and educational perspectives, all
involving Lisp dialects, including Common Lisp, Scheme, Emacs Lisp,
AutoLisp, ISLISP, Dylan, Clojure, and so on.


Kent Pitman will give the keynote address on Thursday, May 28.

The presentations will be divided into two categories.

* Original contributions.

* Work in progress describing ongoing work that will be discussed in
the form of a "writers' workshop". The writers' workshops will take
place at the symposium in Milan on May 28, 2008.

Social Events:
**************

Friday 29th evening, Conference Banquet

Saturday 30th morning, Guided tour to the "Futurismo" Exhibit in
the center of Milan; 2009 marks the 100th anniversary of the Futurism
Manifesto; stretching it, the harbinger of Lisp 50 years later.


Program Chair:
**************

   * Antonio Leitao, Technical University of Lisbon, Portugal


Local Chair:
************

   * Marco Antoniotti, DISCo, Universita`† Milano Bicocca, Italy


Program committee:
******************

   * Giuseppe Attardi, Universita`† di Pisa , Italy
   * Pascal Costanza, Vrije Universiteit Brussel, Belgium
   * Irene Durand, Universite` Bordeaux 1, France
   * Marc Feeley, Universit` de Montreal, Canada
   * Ron Garret, Amalgamated Widgets Unlimited, USA
   * Gregor Kiczales, University of British Columbia, Canada
   * Scott McKay, ITA Software, Inc., USA
   * Peter Norvig, Google Inc., USA
   * Julian Padget, University of Bath, UK
   * Kent Pitman, PTC, USA
   * Christian Queinnec, Universite` Pierre et Marie Curie, France
   * Christophe Rhodes, Goldsmiths College, University of London, UK
   * Robert Strandh, Universite` Bordeaux 1, France
   * Mark Tarver, Lambda Associates, UK
   * Didier Verna, EPITA Research and Development Laboratory, France
   * JonL White, TheGingerIceCreamFactory of Palo Alto, USA
   * Taiichi Yuasa, Kyoto University, Japan


Registration Fees:
******************

   * Early registration before April 25, 2008: Students EU60, regular
EU120.
   * Late registration before May 16, 2008: Students EU80, regular EU160.
   * Onsite registration: Students EU100, regular EU220.

Registration will include the proceedings, coffee breaks,
the symposium dinner and other amenities.
Accommodation is not included.

Apologies for the multiple postings.



************************************************************************

   2nd European Lisp Symposium (ELS 2009)

   Milan, Italy, May 27-29, 2009
   Universita` degli Studi di Milano-Bicocca

   www.european-lisp-symposium.org

************************************************************************

CALL FOR PARTECIPATION
**********************

Registration is now open at www.european-lisp-symposium.org


Scope and Program Highlights:
*****************************

The purpose of the European Lisp Symposium is to provide a forum for
the discussion of all aspects of the design, implementation and
application of any of the Lisp dialects.  We encourage everyone
interested in Lisp to participate.

The European Lisp Symposium 2009 program includes presentations of
high quality papers about novel research results, insights and lessons
learned from practical applications, and educational perspectives, all
involving Lisp dialects, including Common Lisp, Scheme, Emacs Lisp,
AutoLisp, ISLISP, Dylan, Clojure, and so on.


Kent Pitman will give the keynote address on Thursday, May 28.

The presentations will be divided into two categories.

* Original contributions.

* Work in progress describing ongoing work that will be discussed in
the form of a "writers' workshop". The writers' workshops will take
place at the symposium in Milan on May 28, 2008.

Social Events:
**************

Friday 29th evening, Conference Banquet

Saturday 30th morning, Guided tour to the "Futurismo" Exhibit in
the center of Milan; 2009 marks the 100th anniversary of the Futurism
Manifesto; stretching it, the harbinger of Lisp 50 years later.


Program Chair:
**************

   * Antonio Leitao, Technical University of Lisbon, Portugal


Local Chair:
************

   * Marco Antoniotti, DISCo, Universita`  Milano Bicocca, Italy


Program committee:
******************

   * Giuseppe Attardi, Universita`  di Pisa , Italy
   * Pascal Costanza, Vrije Universiteit Brussel, Belgium
   * Irene Durand, Universite` Bordeaux 1, France
   * Marc Feeley, Universit` de Montreal, Canada
   * Ron Garret, Amalgamated Widgets Unlimited, USA
   * Gregor Kiczales, University of British Columbia, Canada
   * Scott McKay, ITA Software, Inc., USA
   * Peter Norvig, Google Inc., USA
   * Julian Padget, University of Bath, UK
   * Kent Pitman, PTC, USA
   * Christian Queinnec, Universite` Pierre et Marie Curie, France
   * Christophe Rhodes, Goldsmiths College, University of London, UK
   * Robert Strandh, Universite` Bordeaux 1, France
   * Mark Tarver, Lambda Associates, UK
   * Didier Verna, EPITA Research and Development Laboratory, France
   * JonL White, TheGingerIceCreamFactory of Palo Alto, USA
   * Taiichi Yuasa, Kyoto University, Japan


Registration Fees:
******************

   * Early registration before April 25, 2008: Students EU60, regular
EU120.
   * Late registration before May 16, 2008: Students EU80, regular EU160.
   * Onsite registration: Students EU100, regular EU220.

Registration will include the proceedings, coffee breaks,
the symposium dinner and other amenities.
Accommodation is not included.

--
Marco Antoniotti

For the recent new members, discussion on Corman Lisp doesn't usually
happen in this mailing list anymore. The official Corman Lisp Forums
are the best place to ask questions:

http://www.artofprogramming.com/bb/index.php

Chris.
--
http://radio.weblogs.com/0102385

Welcome to a Quantum computing. Where not looking,for another
Quantum leap in technology tomorrow but a INFINITE leap in
technology today. Pushing - Quantum physics and Science to the
Technological edge!!

Quantum computers promise enormous computational advance: 100
quantum particles can do the work of 1,000,000,000,000,000,000,000
of today's best computers (experiments with 7 quantum particles have
been done at LANL).


Cutting-edge quantum science experiments are the foundation of this
new technology.


Investigations into methods for fabrication of large scale devices
have started at LANL.

"Peter Seibel" <peter@...> wrote in message
news:<m3hdxb7ywv.fsf@...>...
So I'm trying to write a function that returns a list of pathnames
representing files contained in a given subdirectory including
immediate subdirectories. Further, I want the subdirectories to be
represented by pathnames in "directory form", i.e. with all the name
elements in the directory component of the pathname as opposed to
"file form" where the last name element is split up into the name and
type components. Here's what I've got so far which I've tested on
current versions of SBCL, CMUCL, Lispworks, OpenMCL, Allegro, and
CLISP. If you have easy access to other implementations and care to
test this out, let me know what readtime conditionalization I need to
add.


In corman this is

#+cormanlisp
(multiple-value-bind
    (files dirs)
      (cl::directory-files-and-subdirs wildcard)
    (append files dirs))

but wild-pathname and file-namestring are not defined and :wild often not
treated correctly

The attached patches fixes that

saludos

Karsten

;;; treat :wild a bit

(in-package :pathnames)

(defun convert-pathname-to-namestring (pathname)
	 (let ((device (pathname-internal-device pathname))
		   (directory (pathname-internal-directory pathname))
		   (type (pathname-internal-type pathname))
		   (name (pathname-internal-name pathname)))
		 (format nil "~{~A:~}~{~A~}~{~A\\~}~{~A~}~{.~A~}"
			 (if device (list device) nil)
			 (if (or (eq directory :wild)(eq (car directory) :absolute))
				 '(#\\) nil)
			 (if(eq directory :wild)
                  (list "*")
                 (cdr directory))
			 (if name
                 (if (eq name :wild) (list "*")
                     (list name))
                  nil)
			 (if type
                 (if (eq type :wild) (list "*")
                     (list type))
                  nil))))

(in-package :common-lisp)

(defun wild-pathname-p (path &optional field)
     ;;;;  field can be :host, :device  :directory, :name, :type, :version, or
nil.
     ;;;   but use of wild in host or device seems not to be allowed
     ;;;   o well

     ;;; will that work on streams???
     (unless (pathnamep path)
         (setq path (pathname path)))

     (labels
         ((wild-name (name)
             (or (eq :wild name)
                 (and (stringp name)
                     (string= "*" name))))
          (wild-dir (dir)
             (or (find :wild dir)
                     (find :wild-inferiors dir)
                     (find "*" dir :test #'string=)))
          )

     (if (null field)
             (or (wild-name (pathname-name path))
                 (wild-name (pathname-type path))
                 (wild-dir (pathname-directory path)))
         (case field
             (:name (wild-name (pathname-name path)))
             (:type (wild-name (pathname-type path)))
             (:directory (wild-dir (pathname-directory path)))
             (t nil)))))

#|
(wild-pathname-p "c:\\")
(wild-pathname-p "c:\\test.otto")
(wild-pathname-p "c:\\*")
(wild-pathname-p "c:\\datat\\*.*")
(wild-pathname-p "c:\\"test.*")
|#

(defun file-namestring (pathname)
     (unless (pathnamep pathname)
         (setq pathname (pathname pathname)))
     (let ((name (pathname-name pathname))
             (type (pathname-type pathname)))
     (concatenate 'string
             (if name
                 (if (eq name :wild)
                     "*"
                     name)
                  "")
             "."
             (if type
                 (if (eq type :wild)
                     "*"
                     type)
                  ""))))

Misr University For Science & Technology...

College of Engineering...

Department of Computer Science(HW/SW)..(U)..Department of BIO-
Medical..(U)..Department of Electronics..(U)..Department of
Communication...

Artificial Intelligence Branch...

http://groups.yahoo.com/group/M_U_S_T_ai/

Welcome with every one interesting in (AI)science & all relative
objects...

"Artificial Intelligence, Neural Networks, Fuzzy Logic, Pattern
Recognition, Biometric Technologies, Expert System, Information
Technology, Robotics, Financial Analysis, Scientific Analysis,
Mathematics, Common sense Reasoning, Perception, Software Eng, Image
Processing, Physics, Programming language[C, C++, C#, j#, Prolog,
Lisp], Micro_Controller & Embedded Systems, MatLab, Engineering, HW-
SW/Interface, AI in Games, Computer Security and Information
Assurance, Intelligent Training Systems, Internet Agents, Knowledge-
based Systems, Knowledge Representation and Ontology, Intelligent
Information Retrieval, AI&Genetic Algorithms, NLP and Speech
Understanding, Hybrid Intelligent Systems, AI in Bioinformatics,
Real-time and Embedded Applications, Aeronautics_and_Aerospace,
Space, Missile Guide Systems, Radar Systems"...

Plz don't forget fill ur information in the DATABASE, to make it
easily to contact with u ...thnx...

[For Online Help Add This ID (M_U_S_T_ai@...,
M_U_S_T_ai@...)]

[English-Arabic]

http://groups.yahoo.com/group/M_U_S_T_ai/
http://groups.yahoo.com/group/M_U_S_T_ai/
http://groups.yahoo.com/group/M_U_S_T_ai/

Are there any good Corman-specific tutorials concerning sockets.lisp
or network programming in general? I know that there are some simple
examples in sockets.lisp itself but I was looking for something more
in depth. Cheers and thanks in advance.

--- In cormanlisp@yahoogroups.com, "Chris Double" <chris.double@d...>
wrote:
> When I go there it looks exactly like the old one. Should it? Or am
I
> experiencing a caching issue?
>
> Chris.
>

Hi Chris,

Must be some kind of caching issue. Suggest refreshing your browser
window ?

You can also get to it via this link:

http://artofprogramming.com/bb/

-Luke

When I go there it looks exactly like the old one. Should it? Or am I
experiencing a caching issue?

Chris.

On Mon, 08 Dec 2003 15:45:12 -0800, "Roger Corman" <roger@...>
said:
> Hi again,
>
> I have changed the discussion board software that I was using. The board
> is now running  with the new software, and you can get to it from the
> same link:
>
> www.cormanlisp.com/forums
>
> However, this will now take you to a different system, and if you created
> an account with the previous one you will have to create a new account. I
> migrated over the messages.
>
> This new software, using the open-source phpBB, looks very functional
> (includes email list capabilities) and secure (uses a database on the
> back end for everything).
>
> Thanks for your patience. Please try it and let me know what you think,
> or of any problems you encounter.
>
> Roger
>
> At 01:23 PM 12/6/2003, you wrote:
> >Hi all,
> >
> >I have set up a discussion board for Corman Lisp programming, lisp
programming and issues in general, and whatever you all might want to discuss.
Please check it out and let me know what you think. I am new at this so any
suggestions are welcome. Since there are currently no topics so it's not too
interesting. :-)
> >You are welcome to post something.
> >
> >Here is the link.
> >
> >www.cormanlisp.com/forums
> >
> >Roger
> >
> >
> >
> >To unsubscribe from this group, send an email to:
> >cormanlisp-unsubscribe@yahoogroups.com
> >
> >
> >
> >Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
>
>
>
>
> To unsubscribe from this group, send an email to:
> cormanlisp-unsubscribe@yahoogroups.com
>
>
>
> Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
>
>
--
   Chris Double
   chris.double@...

Hi again,

I have changed the discussion board software that I was using. The board is now
running  with the new software, and you can get to it from the same link:

www.cormanlisp.com/forums

However, this will now take you to a different system, and if you created an
account with the previous one you will have to create a new account. I migrated
over the messages.

This new software, using the open-source phpBB, looks very functional (includes
email list capabilities) and secure (uses a database on the back end for
everything).

Thanks for your patience. Please try it and let me know what you think, or of
any problems you encounter.

Roger

At 01:23 PM 12/6/2003, you wrote:
>Hi all,
>
>I have set up a discussion board for Corman Lisp programming, lisp programming
and issues in general, and whatever you all might want to discuss. Please check
it out and let me know what you think. I am new at this so any suggestions are
welcome. Since there are currently no topics so it's not too interesting. :-)
>You are welcome to post something.
>
>Here is the link.
>
>www.cormanlisp.com/forums
>
>Roger
>
>
>
>To unsubscribe from this group, send an email to:
>cormanlisp-unsubscribe@yahoogroups.com
>
>
>
>Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/

--- In cormanlisp@yahoogroups.com, "Chris Double" <chris.double@d...>
wrote:

> The following should work then:
>
> (setf (ct:cref sdl:SDL_Rect rectangle sdl::x) (random width))
>
> Using the '::' instead of ':' tells Lisp to access the symbol in the
> package even if it is not exported.

That did the trick. Thanks Chris.

-Luke

On Sun, 07 Dec 2003 23:01:49 -0000, "smallhairytroll"
<lcluke@...> said:
> Which makes sense. However I don't really want to have to go back and
> manually export each variable in each struct (shouldn't exporting the
> struct be enough?)

The following should work then:

(setf (ct:cref sdl:SDL_Rect rectangle sdl::x) (random width))

Using the '::' instead of ':' tells Lisp to access the symbol in the
package even if it is not exported.

Chris.

--
   Chris Double
   chris.double@...

--- In cormanlisp@yahoogroups.com, Roger Corman <roger@c...> wrote:
> Yes, the field names are not exported automatically. Doing so
automatically would cause loads of symbols to be exported, many which
would likely cause collisions with lisp symbols, particularly for
things like Windows headers. You could add export statements if you
wanted to export field names.
>
> Roger

Hi Roger,

Then I'll opt for the easy way out and go back to interning everything
in the :win package. This isn't much of an issue. I'll probably modify
parse-c-decls to support the optional exporting of symbols if I get
the time.

-Luke

Yes, the field names are not exported automatically. Doing so automatically
would cause loads of symbols to be exported, many which would likely cause
collisions with lisp symbols, particularly for things like Windows headers. You
could add export statements if you wanted to export field names.

Roger
-----------------
At 02:33 PM 12/7/2003, you wrote:
>On Sun, 07 Dec 2003 22:26:34 -0000, "smallhairytroll"
><lcluke@...> said:
>>
>> (setf (ct:cref sdl:SDL_Rect rectangle x) (random width))
>
>I believe this needs to be something like:
>
>(setf (ct:cref sdl:SDL_Rect rectangle sdl:x) (random width))
>
>ie. The struct field names need to be prefixed by the package.
>
>Chris.
>--
>  Chris Double
>  chris.double@...
>
>
>To unsubscribe from this group, send an email to:
>cormanlisp-unsubscribe@yahoogroups.com
>
>
>
>Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/

--- In cormanlisp@yahoogroups.com, "Chris Double" <chris.double@d...>
wrote:
> On Sun, 07 Dec 2003 22:26:34 -0000, "smallhairytroll"
> <lcluke@h...> said:
> >
> > (setf (ct:cref sdl:SDL_Rect rectangle x) (random width))
>
> I believe this needs to be something like:
>
> (setf (ct:cref sdl:SDL_Rect rectangle sdl:x) (random width))
>
> ie. The struct field names need to be prefixed by the package.

Hi Chris,

I had tried this approach. But because X is not exported I get the
following error:

;;; An error occurred in function CREATE-SYMBOL-FROM-CHARS:
;;; Error: The symbol X is not exported by package SDL

Which makes sense. However I don't really want to have to go back and
manually export each variable in each struct (shouldn't exporting the
struct be enough?)

I'm still curious as to why X cannot be found when (setf) is used, but
X is found when accessing the struct.

-Luke

On Sun, 07 Dec 2003 22:26:34 -0000, "smallhairytroll"
<lcluke@...> said:
>
> (setf (ct:cref sdl:SDL_Rect rectangle x) (random width))

I believe this needs to be something like:

(setf (ct:cref sdl:SDL_Rect rectangle sdl:x) (random width))

ie. The struct field names need to be prefixed by the package.

Chris.
--
   Chris Double
   chris.double@...

I have moved my SDL FFI bindings to a seperate package and are
receiving the following error when I try to set a variable in a
structure:

(setf (ct:cref sdl:SDL_Rect rectangle x) (random width))

;;; An error occurred in function CSTRUCT-SLOT-INFO:
;;; Error: Cannot access C type (STRUCT X SHORT Y SHORT W
UNSIGNED-SHORT H UNSIGNED-SHORT) with access X

The structure looks like this...

typedef struct {
	 Sint16 x;
	 Sint16 y;
	 Uint16 w;
	 Uint16 h;
} SDL_Rect;

I don't receive an error when I read from a structure, only write to
it. For example, this works just fine:

(eql sdl:SDL_MOUSEBUTTONDOWN (ct:cref sdl:SDL_Event sdl-event type)

where SDL_Event looks like this...

typedef struct {
	 Uint8 type;
     Uint8 buffer[1023];
} SDL_Event;

....

The problem seems to be that while the struct is exported, the
variables are not. Can't work out why accessing the struct works, but
attempting to write to the struct doesn't.

Anyone have any ideas ?

-Luke

Hi all,

I have set up a discussion board for Corman Lisp programming, lisp programming
and issues in general, and whatever you all might want to discuss. Please check
it out and let me know what you think. I am new at this so any suggestions are
welcome. Since there are currently no topics so it's not too interesting. :-)
You are welcome to post something.

Here is the link.

www.cormanlisp.com/forums

Roger

--- In cormanlisp@yahoogroups.com, "smallhairytroll" <lcluke@h...>
wrote:
> After downloading the patches and recompiling the CCL image,
suddenly
> all strings in my IDE were rendered in purple. Took me a couple of
> seconds before the penny dropped and I realized that my additions to
> edit-window.lisp had taken effect.

Works until the output of (ccl:get-current_directory) is displayed:

#P"F:\Program Files\Corman Technologies\Corman Lisp 2.5\"

Seems #P" causes the problem.

-Luke

After downloading the patches and recompiling the CCL image, suddenly
all strings in my IDE were rendered in purple. Took me a couple of
seconds before the penny dropped and I realized that my additions to
edit-window.lisp had taken effect.

So, if anyone wishes to add string colorization to their IDE, my
modifications are below...

-Luke

...Export the following additions strings...

"DARK-PURPLE"
"STRING-FORMAT"

... Just after
(defconstant blue (win:RGB 0 0 255))

add the following...

(defconstant dark-purple (win:RGB 126 0 176))

... Just after
(defparameter lisp-symbol-format (make-text-format :bold t))

add the following...

(defparameter string-format (make-text-format :color dark-purple
:bold t))

.. Just after
(defun format-commenting (ITextRange start end)

add the following...

(defun format-string (ITextRange start end)
     (format-text ITextRange start end
         :bold (text-format-bold string-format)
         :italic (text-format-italic string-format)
         :color (text-format-color string-format)))

... In (colorize-buffer) , after

((eq type ':comment) (format-commenting ITextRange start end))

add the following...

((eq type ':string) (format-string ITextRange start end))

--- In cormanlisp@yahoogroups.com, Roger Corman <roger@c...> wrote:
Hi Roger,

> I have posted a patch for 2.5, the file xp.lisp, which adds this
> support. This will take care of your problem.

It does; thanks for the very quick response.

>
However, I notice when executing your expression (transcribe-file ...)
that an awful lot of white space goes into the file (emphasis on
awful).
>

Hehe. One file containing my FFI definitions jumps from 60k to just
over 10 megabytes with pretty-print enabled. Disabling pretty-print
suits me fine.

-Luke

Hi Luke,

Corman Lisp 2.5 has the XP pretty printer package loaded by default, which we
did to provide improved ansi compatibility. Unfortunately it replaced the WRITE
function with a version that does not implement the :readably keyword, and we
didn't catch this. I presume :readably may have been added to the standard after
the XP package was written. I have posted a patch for 2.5, the file xp.lisp,
which adds this support. This will take care of your problem. However, I notice
when executing your expression (transcribe-file ...) that an awful lot of white
space goes into the file (emphasis on awful). I presume there is some easy way
to remedy this but I haven't looked into it. You might want to turn off the
pretty-print option:

(ct:transcribe-file "modules/opengl.lisp" "opengl--.lisp" :common-lisp-user nil)

We expect that in future releases we will avoid problems like this by making
increased use of the GCL ansi compatibility tests as part of our release
process.

Roger

In Corman 2.5. Using parse-c-decls.lisp from the distro.

I tried running (ct:transcribe-file "opengl.lisp" "opengl--.lisp")
on the /Modules/opengl.lisp file that comes with CCL and I get the
following error.

;;; An error occurred in function INVALID-KEY-ARG:
;;; Error: The passed key :READABLY is not defined for this function
;;; Entering Corman Lisp debug loop.

Is this an error for anyone else ?

-Luke

> On Wed, 26 Nov 2003 05:27:41 -0000, "theparalogist"
> <paralogist@...> said:
>> When evaluating something as simple as:
>> '(1 2)
>> I get this response in Corman 2.5:
>
> When evaluating in the IDE with the cursor at the end of a parenthesis
> it will only evaluate from one '(' or a ')' and so misses the "'". If
> you select the entire expression and evaluate it you will get the
> answer you expect.
>
> Chris.
> --
>  Chris Double
>  chris.double@...

Thank you both for the quick reply. How daft of me, though I'm surprised I
hadn't come across this before. Cheers.
Brandon

You have to select the entire expression, including the opening quote character.
Alternatively, place the cursor somewhere else on the line and press shift-enter
or numeric-enter. This will execute the entire line.

Roger
At 09:27 PM 11/25/2003, you wrote:
>When evaluating something as simple as:
>'(1 2)
>I get this response in Corman 2.5:
>;;; An error occurred in function COMPILE-FORM:
>;;; Error: Cannot compile form: (1 2)
>;;; Entering Corman Lisp debug loop.
>etc...
>
>As it evaluates in LispWorks as expected [(1 2)] what have I done
>incorrectly here? Cheers and thanks in advance.
>
>
>
>To unsubscribe from this group, send an email to:
>cormanlisp-unsubscribe@yahoogroups.com
>
>
>
>Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/

On Wed, 26 Nov 2003 05:27:41 -0000, "theparalogist"
<paralogist@...> said:
> When evaluating something as simple as:
> '(1 2)
> I get this response in Corman 2.5:

When evaluating in the IDE with the cursor at the end of a parenthesis it
will only evaluate from one '(' or a ')' and so misses the "'". If you
select the entire expression and evaluate it you will get the answer you
expect.

Chris.
--
   Chris Double
   chris.double@...

When evaluating something as simple as:
'(1 2)
I get this response in Corman 2.5:
;;; An error occurred in function COMPILE-FORM:
;;; Error: Cannot compile form: (1 2)
;;; Entering Corman Lisp debug loop.
etc...

As it evaluates in LispWorks as expected [(1 2)] what have I done
incorrectly here? Cheers and thanks in advance.

Hi Dan,

Thanks for the bug report, and the fixed version. Nested backquotes make my head
hurt as well. :-)

Rather than use your modified version, which I haven't had time to analyze, I
suggest replacing the one in corman lisp with the CMU version, which is public
domain. I will probably post a patch with this file changed
(sys/control-structures.lisp). Here is the adapted version of the CMU function.
It takes care of other things as well, and has some good error checking. If
anybody notices any problems with this please let me know. It works for all the
examples I have tried.

Roger

;;;
;;; Common Lisp DEFINE-MODIFY-MACRO function.
;;; Adapted from CMU Lisp.
;;;
(defmacro define-modify-macro (name lambda-list function &optional
                                doc-string)
   "Creates a new read-modify-write macro like PUSH or INCF."
   (let ((other-args nil)
         (rest-arg nil)
         (env (gensym))
         (reference (gensym)))
     (do ((ll lambda-list (cdr ll)) (arg nil))
         ((null ll))
       (setq arg (car ll))
       (cond ((eq arg '&optional))
             ((eq arg '&rest)
              (if (symbolp (cadr ll))
                  (setq rest-arg (cadr ll))
                  (error "Non-symbol &rest arg in definition of ~S."
                         name))
              (if (null (cddr ll))
                  (return nil)
                  (error "Illegal stuff after &rest arg in
DEFINE-MODIFY-MACRO.")))
             ((member arg '(&key &allow-other-keys &aux) :test 'eq)
              (error "~S not allowed in DEFINE-MODIFY-MACRO lambda list."
                     arg))
             ((symbolp arg) (push arg other-args))
             ((and (listp arg) (symbolp (car arg)))
              (push (car arg) other-args))
             (t
              (error "Illegal stuff in lambda list of DEFINE-MODIFY-MACRO."))))
     (setq other-args (nreverse other-args))
     `(defmacro ,name (,reference ,@lambda-list &environment ,env)
        ,doc-string
        (multiple-value-bind (dummies vals newval setter getter)
            (get-setf-expansion ,reference ,env)
          (do ((d dummies (cdr d))
               (v vals (cdr v))
               (let-list nil (cons (list (car d) (car v)) let-list)))
              ((null d)
               (push (list (car newval)
                           ,(if rest-arg
                                `(list* ',function
                                        getter
                                        ,@other-args
                                        ,rest-arg)
                                `(list ',function
                                       getter
                                       ,@other-args)))
                     let-list)
               `(let* (common-lisp::%comma (nreverse let-list))
                  ,setter)) )))))

-------------------------------------------------------------------
At 03:11 PM 11/16/2003, you wrote:
>On 16 Nov 2003 at 16:45, Dan Muller afjeccf02-at-sneakemail.com |Y wrote:
>
>> Is this a bug in Corman Lisp 2.5? This example is very similar to one
>> given in the Hyperspec, and the definition of appendf also exists in the
>> version of ASDF that I am trying to use:
>>
>> ?(define-modify-macro appendf (&rest args)
>>     append "Append onto list")
>> ;;; Warning: Symbol &REST assumed special
>> APPENDF
>> ?(setq x '(a b c))
>> (A B C)
>> ?(appendf x '(d e f) '(1 2 3))
>> ;;; An error occurred in function MACROEXPAND:
>> ;;; Error: The variable &REST is unbound
>> ;;; Entering Corman Lisp debug loop.
>> ;;; Use :C followed by an option to exit. Type :HELP for help.
>> ;;; Restart options:
>> ;;; 1   Abort to top level.
>> :c 1
>> ;;; Returning to top level loop.
>> ?
>>
>Working from the assumption that the above is in fact a bug, I thought it would
be an
>interesting exercise to try to fix it, seeing as I haven't written any
non-trivial macros yet. I
>started from the definition in sys/control-structures.lisp, and came up with
the following
>modified version, which seems to work:
>
>(defmacro define-modify-macro (name lambda-list function &optional
documentation)
>        (let ((place (gensym))
>              reg-args
>              rest-arg)
>          (flet ((get-args (ll)
>                   (cond ((null ll) t)
>                         ((eq (car ll) '&rest) (setq rest-arg (cadr ll)))
>                         ((eq (car ll) '&optional) (get-args (cdr ll)))
>                         (t (push (car ll) reg-args)))))
>            (get-args lambda-list)
>            `(defmacro ,name (,place ,@lambda-list &environment env)
>               ,@(if documentation (list documentation))
>               (multiple-value-bind (vars vals new setter getter)
>                 (get-setf-expansion ,place env)
>                 (declare (ignore setter))
>                 `(let* (,@(mapcar 'list vars vals) (,(car new) ,getter))
>                    (setf ,getter (funcall (function ,',function) ,(car new)
,,@reg-args ,@,rest-
>arg))))))))
>
>
>Critiques are welcome. The nested backquote form at the end makes my head hurt;
I'm
>not sure I understand exactly *why* splicing rest-arg in using ,@, works.
>
>I don't think this is going to let me use ASDF with Corman Lisp, yet, though.
There is a
>dependence on make-broadcast-stream, which doesn't seem to be defined in Corman
>Lisp 2.5.
>
>
>
>To unsubscribe from this group, send an email to:
>cormanlisp-unsubscribe@yahoogroups.com
>
>
>
>Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/

On 16 Nov 2003 at 16:45, Dan Muller afjeccf02-at-sneakemail.com |Y wrote:

> Is this a bug in Corman Lisp 2.5? This example is very similar to one
> given in the Hyperspec, and the definition of appendf also exists in the
> version of ASDF that I am trying to use:
>
> ?(define-modify-macro appendf (&rest args)
>     append "Append onto list")
> ;;; Warning: Symbol &REST assumed special
> APPENDF
> ?(setq x '(a b c))
> (A B C)
> ?(appendf x '(d e f) '(1 2 3))
> ;;; An error occurred in function MACROEXPAND:
> ;;; Error: The variable &REST is unbound
> ;;; Entering Corman Lisp debug loop.
> ;;; Use :C followed by an option to exit. Type :HELP for help.
> ;;; Restart options:
> ;;; 1   Abort to top level.
> :c 1
> ;;; Returning to top level loop.
> ?
>
Working from the assumption that the above is in fact a bug, I thought it would
be an
interesting exercise to try to fix it, seeing as I haven't written any
non-trivial macros yet. I
started from the definition in sys/control-structures.lisp, and came up with the
following
modified version, which seems to work:

(defmacro define-modify-macro (name lambda-list function &optional
documentation)
	 (let ((place (gensym))
               reg-args
               rest-arg)
           (flet ((get-args (ll)
                    (cond ((null ll) t)
                          ((eq (car ll) '&rest) (setq rest-arg (cadr ll)))
                          ((eq (car ll) '&optional) (get-args (cdr ll)))
                          (t (push (car ll) reg-args)))))
             (get-args lambda-list)
             `(defmacro ,name (,place ,@lambda-list &environment env)
                ,@(if documentation (list documentation))
                (multiple-value-bind (vars vals new setter getter)
                  (get-setf-expansion ,place env)
                  (declare (ignore setter))
                  `(let* (,@(mapcar 'list vars vals) (,(car new) ,getter))
                     (setf ,getter (funcall (function ,',function) ,(car new)
,,@reg-args ,@,rest-
arg))))))))


Critiques are welcome. The nested backquote form at the end makes my head hurt;
I'm
not sure I understand exactly *why* splicing rest-arg in using ,@, works.

I don't think this is going to let me use ASDF with Corman Lisp, yet, though.
There is a
dependence on make-broadcast-stream, which doesn't seem to be defined in Corman
Lisp 2.5.