clisp-devel — closed list for developers and testers

clisp-cvs Digest, Vol 63, Issue 2

[<cli...@li...>]

Send clisp-cvs mailing list submissions to
	cli...@li...

To subscribe or unsubscribe via the World Wide Web, visit
	https://lists.sourceforge.net/lists/listinfo/clisp-cvs
or, via email, send a message with subject or body 'help' to
	cli...@li...

You can reach the person managing the list at
	cli...@li...

When replying, please edit your Subject line so it is more specific
than "Re: Contents of clisp-cvs digest..."


CLISP CVS commits for today

Today's Topics:

   1. clisp: fix bug#3384825: simple condition printing ignores
      user-s... (cli...@li...)
   2. clisp: * Makefile.devel (src/aclocal.m4): run aclocal in src
      (cli...@li...)


----------------------------------------------------------------------

Message: 1
Date: Tue, 02 Aug 2011 19:46:54 +0000
From: cli...@li...
Subject: clisp: fix bug#3384825: simple condition printing ignores
	user-s...
To: cli...@li...
Message-ID:
	<hg....@vz...>
Content-Type: text/plain; charset="us-ascii"

details:   http://clisp.hg.sourceforge.net/hgweb/clisp/clisp/clisp/rev/431e1824aca5
changeset: 15507:431e1824aca57c63fa415ebc23f04078c1e8e4ce
user:      Sam Steingold <sd...@po...>
date:      2011-08-02 12:33:38 -0400
description:
fix bug#3384825: simple condition printing ignores user-supplied methods
* src/condition.lisp (simple-condition): use :REPORT option instead of
a PRINT-OBJECT :AROUND method

diffstat:

 src/ChangeLog        |   6 ++++++
 src/NEWS             |   2 ++
 src/condition.lisp   |  18 +++---------------
 tests/ChangeLog      |   5 +++++
 tests/conditions.tst |   9 +++++++++
 5 files changed, 25 insertions(+), 15 deletions(-)



------------------------------

Message: 2
Date: Tue, 02 Aug 2011 19:46:56 +0000
From: cli...@li...
Subject: clisp: * Makefile.devel (src/aclocal.m4): run aclocal in src
To: cli...@li...
Message-ID:
	<hg....@vz...>
Content-Type: text/plain; charset="us-ascii"

details:   http://clisp.hg.sourceforge.net/hgweb/clisp/clisp/clisp/rev/dce5dc233baf
changeset: 15508:dce5dc233baf4ad42d7994c0ab5d3bb68b691976
user:      Sam Steingold <sd...@po...>
date:      2011-08-02 12:39:39 -0400
description:
* Makefile.devel (src/aclocal.m4): run aclocal in src
<http://article.gmane.org/gmane.comp.lib.gnulib.bugs:27763>

diffstat:

 Makefile.devel |  10 +++++-----
 src/ChangeLog  |   5 +++++
 2 files changed, 10 insertions(+), 5 deletions(-)



------------------------------

------------------------------------------------------------------------------
BlackBerry&reg; DevCon Americas, Oct. 18-20, San Francisco, CA
The must-attend event for mobile developers. Connect with experts. 
Get tools for creating Super Apps. See the latest technologies.
Sessions, hands-on labs, demos & much more. Register early & save!
http://p.sf.net/sfu/rim-blackberry-1

------------------------------

_______________________________________________
clisp-cvs mailing list
cli...@li...
https://lists.sourceforge.net/lists/listinfo/clisp-cvs


End of clisp-cvs Digest, Vol 63, Issue 2
****************************************

Re: ANSIC_error & OS_error &c

[Sam S. <sd...@gn...>]

Hi Bruno,

On Tue, Aug 2, 2011 at 8:44 PM, Bruno Haible <br...@cl...> wrote:
>> ... for automated error recovery one has to parse
>> the error message to distinguish between, say, EPERM and ENOENT.
>> Thus I want to add a $CODE slot to OS-ERROR which would contain the
>> error code
>
> Good point, yes.
>
>> (symbolic, converted by check_errno_reverse in the syscalls
>> module).
>
> Hmm, since OS_error is used throughout stream.d, pathname.d, and others,
> I think this means to move the big DEFCHECKER which defines check_errno_reverse
> from a module to the core of clisp.

no, defchecker uses modprep.
the core is only used by the developers; they can live without that,
just on strerror.

>> However, once we start keeping the error code slot in the condition
>> object, there is no good reason for os-error to be a simple-error
>> because we can now do
>>     (define-condition os-error (error)
>>       (($code :initarg :code :reader os-error-code))
>>       (:report (lambda (c s)
>>                  (let ((code (os-error-code c)))
>>                    (format s "~S=~S: ~S" code (errno code) (strerror code))))))
>> where STRERROR returns the message for the code and ERRNO converts
>> between the symbolic and numeric codes.
>> Thus I will remove simple-os-error.
>
> I disagree. The point is to to have localized error messages. strerror is
> not guaranteed to provide a localization (and on most systems, it doesn't).
> That's why we have all these GETTEXT calls in errunix.d.

of course the return value of strerror/FormatMessage will go through gettext.

> I would say: Keep the error message, _and_ add the symbolic error code.

Since the literal strings will be gone from the clisp sources,
I see no difference between calling gettext(strerror(errno)) at
make-condition time
(as it is done now) vs at print-condition time (as I propose).

>> However, while on unix there is only one kind of error (OS-error, errno),
>> windows have two kinds: OS-error (GetLastError) and ANSIC-error (errno).
>> Thus I have 4 options for windows:
>>1- make os-error abstract and os-error-ansi & os-error-win32 inherit from it
>>2- make os-error mean ansi C errno (like on unix) and os-error-win32
>>   inherit from it
>>3- make os-error mean win32 GetLastError error and os-error-ansic inherit
>>   from it
>>4- make a single os-error class with an extra slot $ANSICP which will
>>   tell me whether the code is errno or GetLastError; alternatively,
>>   store GetLastError as a negative number.
>
> Good question. Option 3 is too Win32 centric IMO, I would drop that.

yep, I kept it for symmetry only.

> If GetLastError() values and errno values were unrelated concepts, option 1
> would be perfect.
>
> But GetLastError() values can be mapped to errno values. Such a mapping already
> occurs in MSVCRT.DLL, for functions like read() and write(). There are
> typically more than 1 GetLastError() values for a single errno value; therefore
> you can view GetLastError() as a "finer" classification of errors than errno
> values.

I am not sure what you mean here.
you cannot use errno with FormatMessage or GetLastError with strerror.
IIUC, any mapping between errno and GetLastError must be done by hand by us,
MS does not provide any API for that.
(there might be something in gnulib though).

> This mapping of errno values is also what will reduce the testing effort
> for programs. Code that does
>   (case (error-code e)
>     (ENOENT ...))
> can work on Win32 as well.

sure, as long as (type-of E) is ansi-c-error, not win32-error.

> The distinction between option 2 and option 4 is based on whether you consider
> Win32 API as important per se, or just an artefact of a weird platform. For me
> it's the latter.

agreed.

> I don't like to have Win32 API present in Linux builds of
> clisp. Therefore my preference is for option 2.

non sequitur.
option 4 with GetLastError values being negative (internally) actually
emphasizes
weirdness of windows quite nicely.
and if you prefer the extra ansicp slot, it will, of course, be
present only on windows.

-- 
Sam Steingold <http://sds.podval.org>

Re: ANSIC_error & OS_error &c

[Bruno H. <br...@cl...>]

Hi Sam,

> ... for automated error recovery one has to parse
> the error message to distinguish between, say, EPERM and ENOENT.
> Thus I want to add a $CODE slot to OS-ERROR which would contain the
> error code

Good point, yes.

> (symbolic, converted by check_errno_reverse in the syscalls
> module).

Hmm, since OS_error is used throughout stream.d, pathname.d, and others,
I think this means to move the big DEFCHECKER which defines check_errno_reverse
from a module to the core of clisp.

> However, once we start keeping the error code slot in the condition
> object, there is no good reason for os-error to be a simple-error
> because we can now do
>     (define-condition os-error (error)
>       (($code :initarg :code :reader os-error-code))
>       (:report (lambda (c s)
>                  (let ((code (os-error-code c)))
>                    (format s "~S=~S: ~S" code (errno code) (strerror code))))))
> where STRERROR returns the message for the code and ERRNO converts
> between the symbolic and numeric codes.
> Thus I will remove simple-os-error.

I disagree. The point is to to have localized error messages. strerror is
not guaranteed to provide a localization (and on most systems, it doesn't).
That's why we have all these GETTEXT calls in errunix.d.

I would say: Keep the error message, _and_ add the symbolic error code.

> However, while on unix there is only one kind of error (OS-error, errno),
> windows have two kinds: OS-error (GetLastError) and ANSIC-error (errno).
> Thus I have 4 options for windows:
>1- make os-error abstract and os-error-ansi & os-error-win32 inherit from it
>2- make os-error mean ansi C errno (like on unix) and os-error-win32
>   inherit from it
>3- make os-error mean win32 GetLastError error and os-error-ansic inherit
>   from it
>4- make a single os-error class with an extra slot $ANSICP which will
>   tell me whether the code is errno or GetLastError; alternatively,
>   store GetLastError as a negative number.

Good question. Option 3 is too Win32 centric IMO, I would drop that.

If GetLastError() values and errno values were unrelated concepts, option 1
would be perfect.

But GetLastError() values can be mapped to errno values. Such a mapping already
occurs in MSVCRT.DLL, for functions like read() and write(). There are
typically more than 1 GetLastError() values for a single errno value; therefore
you can view GetLastError() as a "finer" classification of errors than errno
values.

This mapping of errno values is also what will reduce the testing effort
for programs. Code that does
   (case (error-code e)
     (ENOENT ...))
can work on Win32 as well. Wherease without a mapping from GetLastError()
values to errno values the user would have to list two error codes, one for
Unix and one for Win32:
   (case (error-code e)
     ((ENOENT ERROR_FILE_NOT_FOUND) ...))

These arguments speak in favour of options 2 or 4.

The distinction between option 2 and option 4 is based on whether you consider
Win32 API as important per se, or just an artefact of a weird platform. For me
it's the latter. I don't like to have Win32 API present in Linux builds of
clisp. Therefore my preference is for option 2.

Bruno
-- 
In memoriam Amatore Sciesa <http://it.wikipedia.org/wiki/Amatore_Sciesa>

[ clisp-Bugs-3384693 ] no warning on bad :report function in define-condition

[SourceForge.net <no...@so...>]

Bugs item #3384693, was opened at 2011-08-02 10:19
Message generated for change (Comment added) made by sds
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=3384693&group_id=1355

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: clisp
Group: lisp error
Status: Open
Resolution: None
Priority: 5
Private: No
Submitted By: Sam Steingold (sds)
Assigned to: Sam Steingold (sds)
Summary: no warning on bad :report function in define-condition

Initial Comment:
(define-condition simple-foo (simple-error)
  ()
  (:report (lambda (condition)
             (let ((fstring (simple-condition-format-control condition)))
               (if fstring
                   (apply #'format stream fstring
                          (simple-condition-format-arguments condition))
                   (clos:call-next-method))))))

the :report lambda is bad: it takes one argument instead of two.
however, no warning is issued because define-condition macroexpands to 

(PROGN (DEFCLASS SIMPLE-FOO (SIMPLE-ERROR) NIL)
 (DEFMETHOD PRINT-OBJECT ((CONDITION SIMPLE-FOO) STREAM)
  (IF (OR *PRINT-ESCAPE* *PRINT-READABLY*) (CALL-NEXT-METHOD)
   (PROGN
    (FUNCALL
     #'(LAMBDA (CONDITION)
        (LET ((FSTRING (SIMPLE-CONDITION-FORMAT-CONTROL CONDITION)))
         (IF FSTRING
          (APPLY #'FORMAT STREAM FSTRING
           (SIMPLE-CONDITION-FORMAT-ARGUMENTS CONDITION))
          (CALL-NEXT-METHOD))))
     CONDITION STREAM)
    CONDITION)))
 'SIMPLE-FOO)

and the lambda lives inside a print-object method where STEAM is already bound.
(if STREAM is replaced by ZZZ inside the body of lambda, there _is_ a warning!)
ergo: funcall should issue a warning here.

----------------------------------------------------------------------

>Comment By: Sam Steingold (sds)
Date: 2011-08-02 19:20

Message:
also should warn:
(mapcar (lambda () 1) '(1 2 3))

----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=3384693&group_id=1355

ANSIC_error & OS_error &c

[Sam S. <sd...@gn...>]

Hi,
Right now all OS errors are reported as simple-os-errors with a format
string and an argument list.
This is not good because for automated error recovery one has to parse
the error message to distinguish between, say, EPERM and ENOENT.
Thus I want to add a $CODE slot to OS-ERROR which would contain the
error code (symbolic, converted by check_errno_reverse in the syscalls
module).
However, once we start keeping the error code slot in the condition
object, there is no good reason for os-error to be a simple-error
because we can now do
    (define-condition os-error (error)
      (($code :initarg :code :reader os-error-code))
      (:report (lambda (c s)
                 (let ((code (os-error-code c)))
                   (format s "~S=~S: ~S" code (errno code) (strerror code))))))
where STRERROR returns the message for the code and ERRNO converts
between the symbolic and numeric codes.
Thus I will remove simple-os-error.  Objections?

However, while on unix there is only one kind of error (OS-error, errno),
windows have two kinds: OS-error (GetLastError) and ANSIC-error (errno).
Thus I have 4 options for windows:
- make os-error abstract and os-error-ansi & os-error-win32 inherit from it
- make os-error mean ansi C errno (like on unix) and os-error-win32
  inherit from it
- make os-error mean win32 GetLastError error and os-error-ansic inherit
  from it
- make a single os-error class with an extra slot $ANSICP which will
  tell me whether the code is errno or GetLastError; alternatively,
  store GetLastError as a negative number.

Any preferences?

-- 
Sam Steingold (http://sds.podval.org/) on CentOS release 5.6 (Final) X 11.0.60900031
http://openvotingconsortium.org http://palestinefacts.org http://ffii.org
http://camera.org http://www.PetitionOnline.com/tap12009/ http://memri.org
Any supplier that makes enough to pay a full time lobbyist is overcharging.

[ clisp-Bugs-3384825 ] simple condition printing ignores user-supplied methods

[SourceForge.net <no...@so...>]

Bugs item #3384825, was opened at 2011-08-02 12:20
Message generated for change (Settings changed) made by sds
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=3384825&group_id=1355

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: clisp
Group: ANSI compliance issue
>Status: Closed
>Resolution: Fixed
Priority: 5
Private: No
Submitted By: Sam Steingold (sds)
Assigned to: Sam Steingold (sds)
Summary: simple condition printing ignores user-supplied methods

Initial Comment:
(with-output-to-string (s)
  (define-condition my-simple (simple-condition) ()
    (:report (lambda (c s)
               (format s "good: ~S overrides SIMPLE-CONDITION" (type-of c)))))
  (princ (make-condition 'my-simple :format-control
           "bad: SIMPLE-CONDITION overrides MY-SIMPLE") s))
sbcl: "good: MY-SIMPLE overrides SIMPLE-CONDITION"
clisp: "bad: SIMPLE-CONDITION overrides MY-SIMPLE"


----------------------------------------------------------------------

Comment By: Sam Steingold (sds)
Date: 2011-08-02 12:46

Message:
thank you for your bug report.
the bug has been fixed in the source tree (mercurial/hg).
you can either wait for the next release (recommended)
or check out the current mercurial tree (see http://clisp.org)
and build CLISP from the sources (be advised that between
releases the source tree is very unstable and may not even build
on your platform).

----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=3384825&group_id=1355

[ clisp-Bugs-3384825 ] simple condition printing ignores user-supplied methods

[SourceForge.net <no...@so...>]

Bugs item #3384825, was opened at 2011-08-02 12:20
Message generated for change (Tracker Item Submitted) made by sds
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=3384825&group_id=1355

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: clisp
Group: ANSI compliance issue
Status: Open
Resolution: None
Priority: 5
Private: No
Submitted By: Sam Steingold (sds)
Assigned to: Sam Steingold (sds)
Summary: simple condition printing ignores user-supplied methods

Initial Comment:
(with-output-to-string (s)
  (define-condition my-simple (simple-condition) ()
    (:report (lambda (c s)
               (format s "good: ~S overrides SIMPLE-CONDITION" (type-of c)))))
  (princ (make-condition 'my-simple :format-control
           "bad: SIMPLE-CONDITION overrides MY-SIMPLE") s))
sbcl: "good: MY-SIMPLE overrides SIMPLE-CONDITION"
clisp: "bad: SIMPLE-CONDITION overrides MY-SIMPLE"


----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=3384825&group_id=1355

[ clisp-Bugs-3384698 ] loop does not warn on REPEAT before FOR

[SourceForge.net <no...@so...>]

Bugs item #3384698, was opened at 2011-08-02 10:23
Message generated for change (Comment added) made by sds
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=3384698&group_id=1355

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: clisp
Group: lisp error
Status: Open
Resolution: None
Priority: 5
Private: No
Submitted By: Sam Steingold (sds)
Assigned to: Sam Steingold (sds)
Summary: loop does not warn on REPEAT before FOR

Initial Comment:
http://www.lispworks.com/documentation/HyperSpec/Body/m_loop.htm
loop [name-clause] {variable-clause}* {main-clause}* => result*
variable-clause::= with-clause | initial-final | for-as-clause 
main-clause::= unconditional | accumulation | conditional | termination-test | initial-final
termination-test::= while form | until form | repeat form | always form | never form | thereis form 

therefore we need a warning in
      (loop repeat 0
               for E = 7 then bob
               finally (return E) )


----------------------------------------------------------------------

>Comment By: Sam Steingold (sds)
Date: 2011-08-02 10:27

Message:
http://groups.google.com/group/comp.lang.lisp/browse_thread/thread/a2d7033a4d372c7f/3fdfd51cddef3896
"Zero-repetition in LOOP, in CLisp"

----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=3384698&group_id=1355

[ clisp-Bugs-3384698 ] loop does not warn on REPEAT before FOR

[SourceForge.net <no...@so...>]

Bugs item #3384698, was opened at 2011-08-02 10:23
Message generated for change (Tracker Item Submitted) made by sds
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=3384698&group_id=1355

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: clisp
Group: lisp error
Status: Open
Resolution: None
Priority: 5
Private: No
Submitted By: Sam Steingold (sds)
Assigned to: Sam Steingold (sds)
Summary: loop does not warn on REPEAT before FOR

Initial Comment:
http://www.lispworks.com/documentation/HyperSpec/Body/m_loop.htm
loop [name-clause] {variable-clause}* {main-clause}* => result*
variable-clause::= with-clause | initial-final | for-as-clause 
main-clause::= unconditional | accumulation | conditional | termination-test | initial-final
termination-test::= while form | until form | repeat form | always form | never form | thereis form 

therefore we need a warning in
      (loop repeat 0
               for E = 7 then bob
               finally (return E) )


----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=3384698&group_id=1355

[ clisp-Bugs-3384693 ] no warning on bad :report function in define-condition

[SourceForge.net <no...@so...>]

Bugs item #3384693, was opened at 2011-08-02 10:19
Message generated for change (Settings changed) made by sds
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=3384693&group_id=1355

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: clisp
Group: lisp error
Status: Open
Resolution: None
Priority: 5
Private: No
Submitted By: Sam Steingold (sds)
>Assigned to: Sam Steingold (sds)
Summary: no warning on bad :report function in define-condition

Initial Comment:
(define-condition simple-foo (simple-error)
  ()
  (:report (lambda (condition)
             (let ((fstring (simple-condition-format-control condition)))
               (if fstring
                   (apply #'format stream fstring
                          (simple-condition-format-arguments condition))
                   (clos:call-next-method))))))

the :report lambda is bad: it takes one argument instead of two.
however, no warning is issued because define-condition macroexpands to 

(PROGN (DEFCLASS SIMPLE-FOO (SIMPLE-ERROR) NIL)
 (DEFMETHOD PRINT-OBJECT ((CONDITION SIMPLE-FOO) STREAM)
  (IF (OR *PRINT-ESCAPE* *PRINT-READABLY*) (CALL-NEXT-METHOD)
   (PROGN
    (FUNCALL
     #'(LAMBDA (CONDITION)
        (LET ((FSTRING (SIMPLE-CONDITION-FORMAT-CONTROL CONDITION)))
         (IF FSTRING
          (APPLY #'FORMAT STREAM FSTRING
           (SIMPLE-CONDITION-FORMAT-ARGUMENTS CONDITION))
          (CALL-NEXT-METHOD))))
     CONDITION STREAM)
    CONDITION)))
 'SIMPLE-FOO)

and the lambda lives inside a print-object method where STEAM is already bound.
(if STREAM is replaced by ZZZ inside the body of lambda, there _is_ a warning!)
ergo: funcall should issue a warning here.

----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=3384693&group_id=1355

[ clisp-Bugs-3384693 ] no warning on bad :report function in define-condition

[SourceForge.net <no...@so...>]

Bugs item #3384693, was opened at 2011-08-02 10:19
Message generated for change (Tracker Item Submitted) made by sds
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=3384693&group_id=1355

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: clisp
Group: lisp error
Status: Open
Resolution: None
Priority: 5
Private: No
Submitted By: Sam Steingold (sds)
Assigned to: Bruno Haible (haible)
Summary: no warning on bad :report function in define-condition

Initial Comment:
(define-condition simple-foo (simple-error)
  ()
  (:report (lambda (condition)
             (let ((fstring (simple-condition-format-control condition)))
               (if fstring
                   (apply #'format stream fstring
                          (simple-condition-format-arguments condition))
                   (clos:call-next-method))))))

the :report lambda is bad: it takes one argument instead of two.
however, no warning is issued because define-condition macroexpands to 

(PROGN (DEFCLASS SIMPLE-FOO (SIMPLE-ERROR) NIL)
 (DEFMETHOD PRINT-OBJECT ((CONDITION SIMPLE-FOO) STREAM)
  (IF (OR *PRINT-ESCAPE* *PRINT-READABLY*) (CALL-NEXT-METHOD)
   (PROGN
    (FUNCALL
     #'(LAMBDA (CONDITION)
        (LET ((FSTRING (SIMPLE-CONDITION-FORMAT-CONTROL CONDITION)))
         (IF FSTRING
          (APPLY #'FORMAT STREAM FSTRING
           (SIMPLE-CONDITION-FORMAT-ARGUMENTS CONDITION))
          (CALL-NEXT-METHOD))))
     CONDITION STREAM)
    CONDITION)))
 'SIMPLE-FOO)

and the lambda lives inside a print-object method where STEAM is already bound.
(if STREAM is replaced by ZZZ inside the body of lambda, there _is_ a warning!)
ergo: funcall should issue a warning here.

----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=3384693&group_id=1355

Re: defmethod print-object :around ((condition simple-condition) stream)

[Sam S. <sd...@gn...>]

Hi Bruno,

> * Bruno Haible <oe...@py...> [2011-08-02 01:38:50 +0200]:
>
>> defmethod print-object :around ((condition simple-condition) stream)
> cf. condition.lisp line 478
>> Why is it an ":around" method?
>
> Let's look at the applicable methods:
>
>> (define-condition simple-foo (simple-error) () (:report report-foo))
> SIMPLE-FOO
>
>> (compute-applicable-methods-using-classes #'print-object (list
>> (find-class 'simple-foo) (find-class 't)))
> (#<STANDARD-METHOD (#<STANDARD-CLASS SIMPLE-FOO> #<BUILT-IN-CLASS T>)>
>  #<STANDARD-METHOD :AROUND (#<STANDARD-CLASS SIMPLE-CONDITION> #<BUILT-IN-CLASS T>)>
>  #<STANDARD-METHOD (#<STANDARD-CLASS CONDITION> #<BUILT-IN-CLASS T>)>
>  #<STANDARD-METHOD (#<STANDARD-CLASS STANDARD-OBJECT> #<BUILT-IN-CLASS T>)>
> )
>
> If it were a primary method instead of an around method, the result would be
>
>> (compute-applicable-methods-using-classes #'print-object (list
>> (find-class 'simple-foo) (find-class 't)))
> (#<STANDARD-METHOD (#<STANDARD-CLASS SIMPLE-FOO> #<BUILT-IN-CLASS T>)>
>  #<STANDARD-METHOD (#<STANDARD-CLASS SIMPLE-CONDITION> #<BUILT-IN-CLASS T>)>
>  #<STANDARD-METHOD (#<STANDARD-CLASS CONDITION> #<BUILT-IN-CLASS T>)>
>  #<STANDARD-METHOD (#<STANDARD-CLASS STANDARD-OBJECT> #<BUILT-IN-CLASS T>)>
> )
>
>> If yes, wouldn't it be better to use a regular method
>
> Indeed, it seems that if you use a primary method, the report-function of
> SIMPLE-FOO will take precedence over the printing with
>   (apply #'format stream (simple-condition-format-control condition)
>                          (simple-condition-format-arguments condition))
>
> Whereas in the current state, through :AROUND, the printing with
>   (apply #'format stream (simple-condition-format-control condition)
>                          (simple-condition-format-arguments condition))
> takes precedence over the :REPORT option of SIMPLE-FOO.

indeed I realized that, so my questions were
- was this override intentional (apparently, from the comment below, yes)
- should it be removed (apparently yes)

>> (or even a :report argument
>
> A :report argument is equivalent to a defmethod anyway, see
>   <http://www.ai.mit.edu/projects/iiip/doc/CommonLISP/HyperSpec/Body/mac_define-condition.html>

my question was whether call-next-method was permitted in :report;
apparently yes.

>> I think this would add robustness because
>> - the code becomes cleaner
>
> It would definitely be a change in behaviour. The comment "Instead we
> define a print-object method which will be executed regardless of the
> condition type's CPL" indicates that the code is meant to provide some
> specific behaviour, regarding the condition type's CPL. Only I don't
> know if that specific behaviour is the one CLHS wants.

I think it is reasonable for a user who writes
(define-condition simple-foo (simple-error) () (:report report-foo))
to be upset that report-foo is never called by clisp.

-- 
Sam Steingold (http://sds.podval.org/) on CentOS release 5.6 (Final) X 11.0.60900031
http://www.PetitionOnline.com/tap12009/ http://thereligionofpeace.com
http://camera.org http://mideasttruth.com http://jihadwatch.org
To understand recursion, one has to understand recursion first.

[ clisp-Feature Requests-3384688 ] use OS facilities to print os-error

[SourceForge.net <no...@so...>]

Feature Requests item #3384688, was opened at 2011-08-02 10:13
Message generated for change (Tracker Item Submitted) made by sds
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=351355&aid=3384688&group_id=1355

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: UI
Group: None
Status: Open
Resolution: None
Priority: 5
Private: No
Submitted By: Sam Steingold (sds)
Assigned to: Sam Steingold (sds)
Summary: use OS facilities to print os-error

Initial Comment:
use strerror and FormatMessage instead of internal tables in errunix and errwin32

----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=351355&aid=3384688&group_id=1355

clisp-cvs Digest, Vol 63, Issue 1

[<cli...@li...>]

Send clisp-cvs mailing list submissions to
	cli...@li...

To subscribe or unsubscribe via the World Wide Web, visit
	https://lists.sourceforge.net/lists/listinfo/clisp-cvs
or, via email, send a message with subject or body 'help' to
	cli...@li...

You can reach the person managing the list at
	cli...@li...

When replying, please edit your Subject line so it is more specific
than "Re: Contents of clisp-cvs digest..."


CLISP CVS commits for today

Today's Topics:

   1. clisp: * tests/pack11.tst (*modules*) [clisp]: boot linking
      set ... (cli...@li...)
   2. clisp: * modules/berkeley-db/configure.in,
      modules/clx/new-clx/c... (cli...@li...)
   3. clisp: gnulib-imported (cli...@li...)
   4. clisp: avoid an extra slash
      (cli...@li...)
   5. clisp: no need for src/ (cli...@li...)
   6. clisp: revert the parts of the 2011-07-29 15496:d628d9ac3fce
      patch (cli...@li...)
   7. clisp: * utils/txt2c.c (process_file): avoid a segfault by
      check... (cli...@li...)
   8. clisp: fix "clean" targets
      (cli...@li...)
   9. clisp: gnulib towlower fix
      (cli...@li...)
  10. clisp: fix recent breakage
      (cli...@li...)


----------------------------------------------------------------------

Message: 1
Date: Mon, 01 Aug 2011 14:03:00 +0000
From: cli...@li...
Subject: clisp: * tests/pack11.tst (*modules*) [clisp]: boot linking
	set ...
To: cli...@li...
Message-ID:
	<hg....@vz...>
Content-Type: text/plain; charset="us-ascii"

details:   http://clisp.hg.sourceforge.net/hgweb/clisp/clisp/clisp/rev/0cbd5f62195d
changeset: 15497:0cbd5f62195df39e1e53f57b7f51ee1e611c1d14
user:      Sam Steingold <sd...@po...>
date:      2011-08-01 09:50:09 -0400
description:
* tests/pack11.tst (*modules*) [clisp]: boot linking set contains only
"clisp" module and *modules* is NIL; base and full have more
Reported by Barry Fishman <bar...@ac...>

diffstat:

 tests/ChangeLog  |  6 ++++++
 tests/pack11.tst |  5 ++++-
 2 files changed, 10 insertions(+), 1 deletions(-)



------------------------------

Message: 2
Date: Mon, 01 Aug 2011 14:03:02 +0000
From: cli...@li...
Subject: clisp: * modules/berkeley-db/configure.in,
	modules/clx/new-clx/c...
To: cli...@li...
Message-ID:
	<hg....@vz...>
Content-Type: text/plain; charset="us-ascii"

details:   http://clisp.hg.sourceforge.net/hgweb/clisp/clisp/clisp/rev/975c8129af30
changeset: 15498:975c8129af301bba07ca2540d49b3a91735877de
user:      Sam Steingold <sd...@po...>
date:      2011-08-01 10:02:28 -0400
description:
* modules/berkeley-db/configure.in, modules/clx/new-clx/configure.in:
* modules/syscalls/configure.in: call AC_SYS_LARGEFILE before the
first AC_CHECK_SIZEOF to ensure 64-bit size_t
Reported by Vladimir Tzankov <vtz...@gm...> in
<http://article.gmane.org/gmane.lisp.clisp.devel:22642>

diffstat:

 modules/berkeley-db/config.h.in  |   11 ++
 modules/berkeley-db/configure    |  201 ++++++++++++++++++++++++++++++++++++++++
 modules/berkeley-db/configure.in |    1 +
 modules/clx/new-clx/config.h.in  |   11 ++
 modules/clx/new-clx/configure    |  206 +++++++++++++++++++++++++++++++++++++++++
 modules/clx/new-clx/configure.in |    1 +
 modules/syscalls/config.h.in     |   11 ++
 modules/syscalls/configure       |  203 ++++++++++++++++++++++++++++++++++++++++-
 modules/syscalls/configure.in    |    1 +
 src/ChangeLog                    |    8 +
 10 files changed, 653 insertions(+), 1 deletions(-)



------------------------------

Message: 3
Date: Mon, 01 Aug 2011 14:07:11 +0000
From: cli...@li...
Subject: clisp: gnulib-imported
To: cli...@li...
Message-ID:
	<hg....@vz...>
Content-Type: text/plain; charset="us-ascii"

details:   http://clisp.hg.sourceforge.net/hgweb/clisp/clisp/clisp/rev/098dd84e1337
changeset: 15499:098dd84e13371b92a90d6d774375e251fc5f6e3f
user:      Sam Steingold <sd...@po...>
date:      2011-08-01 10:06:56 -0400
description:
gnulib-imported

diffstat:

 modules/syscalls/configure    |    6 +
 src/aclocal.m4                |  166 ++++++++++-
 src/config.h.in               |   20 +
 src/configure                 |  653 +++++++++++++++++++++++++++++-----------------
 src/gllib/Makefile.am         |    1 +
 src/gllib/Makefile.in         |    4 +-
 src/gllib/errno.in.h          |   10 +
 src/gllib/strerror-override.c |   10 +
 src/gllib/strerror-override.h |    2 +
 src/gllib/sys_utsname.in.h    |    8 +
 src/gllib/wctype.in.h         |   10 +-
 src/glm4/errno_h.m4           |    8 +-
 src/glm4/gnulib-common.m4     |   31 ++-
 src/glm4/gnulib-comp.m4       |    2 +-
 src/glm4/mbrtowc.m4           |   18 +-
 src/glm4/mbsinit.m4           |   18 +-
 src/glm4/mbsrtowcs.m4         |   18 +-
 src/glm4/sys_utsname_h.m4     |   11 +-
 src/glm4/warn-on-use.m4       |    6 +-
 src/glm4/wcrtomb.m4           |   18 +-
 src/glm4/wctype_h.m4          |   36 ++-
 21 files changed, 785 insertions(+), 271 deletions(-)



------------------------------

Message: 4
Date: Mon, 01 Aug 2011 15:12:14 +0000
From: cli...@li...
Subject: clisp: avoid an extra slash
To: cli...@li...
Message-ID:
	<hg....@vz...>
Content-Type: text/plain; charset="us-ascii"

details:   http://clisp.hg.sourceforge.net/hgweb/clisp/clisp/clisp/rev/7a13a2dacee0
changeset: 15500:7a13a2dacee042cd59280cfec56c84a7dde414e8
user:      Sam Steingold <sd...@po...>
date:      2011-08-01 10:59:34 -0400
description:
avoid an extra slash

diffstat:

 src/makemake.in |  2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)



------------------------------

Message: 5
Date: Mon, 01 Aug 2011 15:12:16 +0000
From: cli...@li...
Subject: clisp: no need for src/
To: cli...@li...
Message-ID:
	<hg....@vz...>
Content-Type: text/plain; charset="us-ascii"

details:   http://clisp.hg.sourceforge.net/hgweb/clisp/clisp/clisp/rev/4bf0a0fdbad5
changeset: 15501:4bf0a0fdbad5db524be709762bd010c94ffae11f
user:      Sam Steingold <sd...@po...>
date:      2011-08-01 11:00:22 -0400
description:
no need for src/

diffstat:

 src/_README |  2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)



------------------------------

Message: 6
Date: Mon, 01 Aug 2011 20:50:41 +0000
From: cli...@li...
Subject: clisp: revert the parts of the 2011-07-29 15496:d628d9ac3fce
	patch
To: cli...@li...
Message-ID:
	<hg....@vz...>
Content-Type: text/plain; charset="us-ascii"

details:   http://clisp.hg.sourceforge.net/hgweb/clisp/clisp/clisp/rev/5b92d5e7a7e2
changeset: 15502:5b92d5e7a7e2e4f3404c1ada3db5c7f3aa427f9c
user:      Sam Steingold <sd...@po...>
date:      2011-08-01 15:40:26 -0400
description:
revert the parts of the 2011-07-29 15496:d628d9ac3fce patch
which broke the in-place build (in the src directory)
* _clisp.c: include w32shell & execname with "", not <>
* src/encoding.d: include nls_* with "", not <>
* src/eval.d: include lightning with "", not <>
* src/lispbibl.d: include version.h with "", not <>
* src/modules.c: include lispbibl & clisp with "", not <>
* src/spvw.d: include spvw_calendar.c with "", not <>

diffstat:

 src/ChangeLog  |   11 +++
 src/encoding.d |  132 ++++++++++++++++++++++----------------------
 src/eval.d     |    2 +-
 src/lispbibl.d |    2 +-
 src/modules.c  |    4 +-
 src/spvw.d     |    2 +-
 6 files changed, 82 insertions(+), 71 deletions(-)



------------------------------

Message: 7
Date: Mon, 01 Aug 2011 20:50:43 +0000
From: cli...@li...
Subject: clisp: * utils/txt2c.c (process_file): avoid a segfault by
	check...
To: cli...@li...
Message-ID:
	<hg....@vz...>
Content-Type: text/plain; charset="us-ascii"

details:   http://clisp.hg.sourceforge.net/hgweb/clisp/clisp/clisp/rev/173f00665576
changeset: 15503:173f006655763654d5a41c41710cd6f2a82348d6
user:      Sam Steingold <sd...@po...>
date:      2011-08-01 15:47:54 -0400
description:
* utils/txt2c.c (process_file): avoid a segfault by checking that
standard_include_path is not NULL before accessing it

diffstat:

 src/ChangeLog |  5 +++++
 utils/txt2c.c |  4 ++--
 2 files changed, 7 insertions(+), 2 deletions(-)



------------------------------

Message: 8
Date: Mon, 01 Aug 2011 20:50:44 +0000
From: cli...@li...
Subject: clisp: fix "clean" targets
To: cli...@li...
Message-ID:
	<hg....@vz...>
Content-Type: text/plain; charset="us-ascii"

details:   http://clisp.hg.sourceforge.net/hgweb/clisp/clisp/clisp/rev/d85aa9a14859
changeset: 15504:d85aa9a148592ed818b12396749c4cbd035c15e1
user:      Sam Steingold <sd...@po...>
date:      2011-08-01 16:32:19 -0400
description:
fix "clean" targets
* src/makemake.in (anymodule): do not remove gllib; there is not such dir
(clean1): do not remove build-aux, but do remove dynmod
(clean5): remove modules.h and build-aux unless building in src
(clean6): do not remove Makefile
(clean7): depend on distclean-subdirs
(clean-subdirs, distclean-subdirs): new targets
(clean): depend on clean-subdirs
* src/po/Makefile.in.in (distclean): remove Makefile.in

diffstat:

 src/ChangeLog         |  12 ++++++++++++
 src/makemake.in       |  32 ++++++++++++++++++++------------
 src/po/Makefile.in.in |   2 +-
 3 files changed, 33 insertions(+), 13 deletions(-)



------------------------------

Message: 9
Date: Mon, 01 Aug 2011 21:14:31 +0000
From: cli...@li...
Subject: clisp: gnulib towlower fix
To: cli...@li...
Message-ID:
	<hg....@vz...>
Content-Type: text/plain; charset="us-ascii"

details:   http://clisp.hg.sourceforge.net/hgweb/clisp/clisp/clisp/rev/47806d0271fa
changeset: 15505:47806d0271fa3f80d793206b5623602106299045
user:      Sam Steingold <sd...@po...>
date:      2011-08-01 17:14:11 -0400
description:
gnulib towlower fix

diffstat:

 src/aclocal.m4       |  45 +++++++++++++++++++++++++--------------------
 src/config.h.in      |   3 +++
 src/configure        |  47 +++++++++++++++++++++++++++++++----------------
 src/glm4/wctype_h.m4 |  45 +++++++++++++++++++++++++--------------------
 4 files changed, 84 insertions(+), 56 deletions(-)



------------------------------

Message: 10
Date: Mon, 01 Aug 2011 21:17:21 +0000
From: cli...@li...
Subject: clisp: fix recent breakage
To: cli...@li...
Message-ID:
	<hg....@vz...>
Content-Type: text/plain; charset="us-ascii"

details:   http://clisp.hg.sourceforge.net/hgweb/clisp/clisp/clisp/rev/63e5fdf31df2
changeset: 15506:63e5fdf31df28b27aa3cf744cfa6235d603e5890
user:      Sam Steingold <sd...@po...>
date:      2011-08-01 17:16:16 -0400
description:
fix recent breakage
* src/socket.d (CLOSE) [win32]: define
* src/win32.d (ioctl): define to ioctlsocket

diffstat:

 src/ChangeLog |  6 ++++++
 src/socket.d  |  6 ++++++
 src/win32.d   |  2 ++
 3 files changed, 14 insertions(+), 0 deletions(-)



------------------------------

------------------------------------------------------------------------------
BlackBerry&reg; DevCon Americas, Oct. 18-20, San Francisco, CA
The must-attend event for mobile developers. Connect with experts. 
Get tools for creating Super Apps. See the latest technologies.
Sessions, hands-on labs, demos & much more. Register early & save!
http://p.sf.net/sfu/rim-blackberry-1

------------------------------

_______________________________________________
clisp-cvs mailing list
cli...@li...
https://lists.sourceforge.net/lists/listinfo/clisp-cvs


End of clisp-cvs Digest, Vol 63, Issue 1
****************************************

Re: defmethod print-object :around ((condition simple-condition) stream)

[Bruno H. <br...@cl...>]

Hi Sam,

> After all, all simple conditions are internal to clisp

No. Users can define their own subclasses of SIMPLE-CONDITION, see
  <http://www.ai.mit.edu/projects/iiip/doc/CommonLISP/HyperSpec/Body/contyp_simple-condition.html>
And they can define their own PRINT-OBJECT methods on their own SIMPLE-CONDITION
subclasses.

> defmethod print-object :around ((condition simple-condition) stream)
cf. condition.lisp line 478
> Why is it an ":around" method?

Let's look at the applicable methods:

> (define-condition simple-foo (simple-error) () (:report report-foo))
SIMPLE-FOO

> (compute-applicable-methods-using-classes #'print-object (list (find-class 'simple-foo) (find-class 't)))
(#<STANDARD-METHOD (#<STANDARD-CLASS SIMPLE-FOO> #<BUILT-IN-CLASS T>)>
 #<STANDARD-METHOD :AROUND (#<STANDARD-CLASS SIMPLE-CONDITION> #<BUILT-IN-CLASS T>)>
 #<STANDARD-METHOD (#<STANDARD-CLASS CONDITION> #<BUILT-IN-CLASS T>)>
 #<STANDARD-METHOD (#<STANDARD-CLASS STANDARD-OBJECT> #<BUILT-IN-CLASS T>)>
)

If it were a primary method instead of an around method, the result would be

> (compute-applicable-methods-using-classes #'print-object (list (find-class 'simple-foo) (find-class 't)))
(#<STANDARD-METHOD (#<STANDARD-CLASS SIMPLE-FOO> #<BUILT-IN-CLASS T>)>
 #<STANDARD-METHOD (#<STANDARD-CLASS SIMPLE-CONDITION> #<BUILT-IN-CLASS T>)>
 #<STANDARD-METHOD (#<STANDARD-CLASS CONDITION> #<BUILT-IN-CLASS T>)>
 #<STANDARD-METHOD (#<STANDARD-CLASS STANDARD-OBJECT> #<BUILT-IN-CLASS T>)>
)

> If yes, wouldn't it be better to use a regular method

Indeed, it seems that if you use a primary method, the report-function of
SIMPLE-FOO will take precedence over the printing with
  (apply #'format stream (simple-condition-format-control condition)
                         (simple-condition-format-arguments condition))

Whereas in the current state, through :AROUND, the printing with
  (apply #'format stream (simple-condition-format-control condition)
                         (simple-condition-format-arguments condition))
takes precedence over the :REPORT option of SIMPLE-FOO.

> (or even a :report argument

A :report argument is equivalent to a defmethod anyway, see
  <http://www.ai.mit.edu/projects/iiip/doc/CommonLISP/HyperSpec/Body/mac_define-condition.html>

> I think this would add robustness because
> - the code becomes cleaner

It would definitely be a change in behaviour. The comment "Instead we define a
print-object method which will be executed regardless of the condition type's CPL"
indicates that the code is meant to provide some specific behaviour, regarding
the condition type's CPL. Only I don't know if that specific behaviour is the
one CLHS wants.

> - we do make sure that a careless developer does not add a print-object
>   method which overrides our preferred one.

Compliant programs are not allowed to add a :AROUND method for
PRINT-OBJECT on SIMPLE-CONDITION, and I think clisp warns about this already.

Bruno
-- 
In memoriam Marie Trintignant <http://en.wikipedia.org/wiki/Marie_Trintignant>

Re: nightly build error

[Sam S. <sd...@gn...>]

> * Don Cohen <qba...@vf...> [2011-07-30 15:32:15 -0700]:
>
> ends like this:
> ====
> rm -f COPYRIGHT
> ln -s ../COPYRIGHT COPYRIGHT
> rm -f GNU-GPL
> ln -s ../GNU-GPL GNU-GPL
> rm -f SUMMARY
> ln -s ../SUMMARY SUMMARY
> ln -s ../src/NEWS NEWS
> ./txt2c -I../src// < ../src/_README > txt.c
> Could not open include file ../src//src/_README.en
> make: *** [README] Error 1

fixed, thanks!

-- 
Sam Steingold (http://sds.podval.org/) on CentOS release 5.6 (Final) X 11.0.60900031
http://www.memritv.org http://ffii.org http://www.PetitionOnline.com/tap12009/
http://honestreporting.com http://memri.org http://thereligionofpeace.com
To understand recursion, one has to understand recursion first.

Re: Problems with make check during development install

[Sam S. <sd...@gn...>]

> * Barry Fishman <one...@np...> [2011-07-31 09:55:44 -0400]:
>
> At least since June 1, when trying to build CLISP from the mecurial
> repository i get a memory corruption detected error while building the
> test driver.  This is under Ubuntu Natty and Fedora 15.

1. are you using the cvs head libffcall?
http://sourceforge.net/tracker/?func=detail&aid=1913760&group_id=1355&atid=101355

2. could you please use "hg bisect" to pinpoint the commit which broke
the build?

> Using in the tests/Makefile:
>
> LISP = LC_MESSAGES=en_US clisp -E utf-8 -norc -m 30MW -L english -c tests
>
> with the new CLISP chosen from PATH environemt.
>
> Results in pack11.erg:
>
> Form: (AND *MODULES* T)
> CORRECT: NIL
> CLISP  : T
>
> I don't see why this is not the correct answer.

This is a hold-over from the times of base==boot.
Fixed, thanks.

-- 
Sam Steingold (http://sds.podval.org/) on CentOS release 5.6 (Final) X 11.0.60900031
http://honestreporting.com http://openvotingconsortium.org http://pmw.org.il
http://mideasttruth.com http://dhimmi.com http://truepeace.org http://ffii.org
will write code that writes code that writes code for food

Problems with make check during development install

[Barry F. <bar...@ac...>]

At least since June 1, when trying to build CLISP from the mecurial
repository i get a memory corruption detected error while building
the test driver.  This is under Ubuntu Natty and Fedora 15.

The attempt end with:

--8<---------------cut here---------------start------------->8---
cd tests && make SHELL='/bin/bash' LEXE=.run
make[1]: Entering directory `/home2/barry/src/gen/clisp/gcc-build/tests'
rm -f *.erg
LC_MESSAGES=en_US ../lisp.run -E utf-8 -norc -B ../ -N ../locale -M ../lispinit.mem -m 30MW -L english -c tests
make[1]: *** [tests.fas] Segmentation fault
make[1]: Leaving directory `/home2/barry/src/gen/clisp/gcc-build/tests'
make: *** [check-tests] Error 2
--8<---------------cut here---------------end--------------->8---

Today when I installed it anyway, then ran the tests using the installed
system, I got only one error:

Using in the tests/Makefile:

LISP = LC_MESSAGES=en_US clisp -E utf-8 -norc -m 30MW -L english -c tests

with the new CLISP chosen from PATH environemt.

Results in pack11.erg:

--8<---------------cut here---------------start------------->8---
Form: (AND *MODULES* T)
CORRECT: NIL
CLISP  : T
--8<---------------cut here---------------end--------------->8---

I don't see why this is not the correct answer.

But the real issue is the 'make check' failure.
-- 
Barry Fishman

nightly build error

[<don...@is...>]

ends like this:
====
rm -f COPYRIGHT
ln -s ../COPYRIGHT COPYRIGHT
rm -f GNU-GPL
ln -s ../GNU-GPL GNU-GPL
rm -f SUMMARY
ln -s ../SUMMARY SUMMARY
ln -s ../src/NEWS NEWS
./txt2c -I../src// < ../src/_README > txt.c
Could not open include file ../src//src/_README.en
make: *** [README] Error 1

clisp-cvs Digest, Vol 62, Issue 12

[<cli...@li...>]

Send clisp-cvs mailing list submissions to
	cli...@li...

To subscribe or unsubscribe via the World Wide Web, visit
	https://lists.sourceforge.net/lists/listinfo/clisp-cvs
or, via email, send a message with subject or body 'help' to
	cli...@li...

You can reach the person managing the list at
	cli...@li...

When replying, please edit your Subject line so it is more specific
than "Re: Contents of clisp-cvs digest..."


CLISP CVS commits for today

Today's Topics:

   1. clisp: * src/makemake.in (GNULIB_INCLUDE):
      -I$(builddir)/gllib -... (cli...@li...)
   2. clisp: link over fewer files into the build directory
      (cli...@li...)


----------------------------------------------------------------------

Message: 1
Date: Fri, 29 Jul 2011 21:12:58 +0000
From: cli...@li...
Subject: clisp: * src/makemake.in (GNULIB_INCLUDE):
	-I$(builddir)/gllib -...
To: cli...@li...
Message-ID:
	<hg....@vz...>
Content-Type: text/plain; charset="us-ascii"

details:   http://clisp.hg.sourceforge.net/hgweb/clisp/clisp/clisp/rev/3f969c1200ac
changeset: 15495:3f969c1200ac279a75b9a8e3d9f39fce9ee2fb31
user:      Sam Steingold <sd...@po...>
date:      2011-07-29 12:08:41 -0400
description:
* src/makemake.in (GNULIB_INCLUDE): -I$(builddir)/gllib -I$(srcdir)/gllib
(XCPPFLAGS): add GNULIB_INCLUDE
(UNICODE_EXTRA, GLLIB_MODULE_HEADERS): remove
(anymodule): add GNULIB_INCLUDE to CPPFLAGS
* src/encoding.d: include localcharset as <>, not as ""

diffstat:

 src/ChangeLog   |   8 ++++++++
 src/encoding.d  |   4 ++--
 src/makemake.in |  38 +++++++++++++++-----------------------
 3 files changed, 25 insertions(+), 25 deletions(-)



------------------------------

Message: 2
Date: Fri, 29 Jul 2011 21:13:00 +0000
From: cli...@li...
Subject: clisp: link over fewer files into the build directory
To: cli...@li...
Message-ID:
	<hg....@vz...>
Content-Type: text/plain; charset="us-ascii"

details:   http://clisp.hg.sourceforge.net/hgweb/clisp/clisp/clisp/rev/d628d9ac3fce
changeset: 15496:d628d9ac3fceaf981d9e8dae9932b5b8f8227dfd
user:      Sam Steingold <sd...@po...>
date:      2011-07-29 17:02:16 -0400
description:
link over fewer files into the build directory
* src/makemake.in (CLISP_LIBDIR): do not set
(EVERY_INCLUDES_H): remove gllib files
(UNICODE_INCLUDES, NLS_INCLUDES, SPVW_VERSION, w32shell.c)
(execname.c, spvw_calendar.c, with_jitc): do not link over
(TXT2CINCL): use SRCDIR, not SRCTOPDIR
(gllib): pass top_srcdir, not CLISP_LIBDIR to make
(modules.h): create with touch
(LINKKIT): link files directly into linkkit/
* src/modules.h: remove
* Makefile.devel (src/gllib/Makefile.in): replace
$(top_srcdir)/src/build-aux with $(top_srcdir)/build-aux instead
of CLISP_LIBDIR
* src/_clisp.c: include w32shell & execname with <>, not ""
* src/encoding.d: include nls_* with <>, not ""
* src/eval.d: include lightning with <>, not ""
* src/lispbibl.d: include version.h with <>, not ""
* src/modules.c: include lispbibl & clisp with <>, not ""
* src/spvw.d: include spvw_calendar.c with <>, not ""

diffstat:

 Makefile.devel        |    5 +-
 src/ChangeLog         |   22 +++++++
 src/_clisp.c          |    4 +-
 src/encoding.d        |  132 ++++++++++++++++++++++----------------------
 src/eval.d            |    2 +-
 src/gllib/Makefile.in |   28 ++++----
 src/lispbibl.d        |    2 +-
 src/makemake.in       |  132 ++++++++++++++++++++-----------------------
 src/modules.c         |    4 +-
 src/modules.h         |    1 -
 src/spvw.d            |    2 +-
 11 files changed, 173 insertions(+), 161 deletions(-)



------------------------------

------------------------------------------------------------------------------
Got Input?   Slashdot Needs You.
Take our quick survey online.  Come on, we don't ask for help often.
Plus, you'll get a chance to win $100 to spend on ThinkGeek.
http://p.sf.net/sfu/slashdot-survey

------------------------------

_______________________________________________
clisp-cvs mailing list
cli...@li...
https://lists.sourceforge.net/lists/listinfo/clisp-cvs


End of clisp-cvs Digest, Vol 62, Issue 12
*****************************************

Re: gettext in regexp

[Angel P. <ang...@ya...>]

Sorry


$ grep -i gettext config.h */config.h
config.h:/* Define if the GNU dcgettext() function is already present or preinstalled.
config.h:#define HAVE_DCGETTEXT 1
config.h:/* Define if the GNU gettext() function is already present or preinstalled. */
config.h:#define HAVE_GETTEXT 1



________________________________
From: Sam Steingold <sd...@gn...>
To: cli...@li...; Angel Popov <ang...@ya...>
Cc: Bruno Haible <br...@cl...>
Sent: Friday, July 29, 2011 6:20 PM
Subject: Re: gettext in regexp

> * Angel Popov <nat...@ln...> [2011-07-29 07:05:13 -0700]:
>
> If regexp is removed from base modules, clisp compiles. With it,it failed.
>
> $ nm lisp.exe | grep gettext
> 005a4544 I __imp__libintl_dgettext
> 00406ce4 T _clgettext
> 004069a0 T _clgettextl
> 00406978 t _clisp_gettext
> 004d1b08 T _libintl_dgettext
>
> angel@bozhur /cygdrive/c/packages/clisp/build
> $ grep gettext config.h /*config.h
> config.h:/* Define if the GNU dcgettext() function is already present or preinstalled.
> config.h:/* Define if the GNU gettext() function is already present or preinstalled. */
> grep: /*config.h: No such file or directory

that's because you transposed '*' and '/'.

$ grep -i gettext config.h */config.h

> angel@bozhur /cygdrive/c/packages/clisp/build
> $ nm libgnu.a | grep gettext
> U _libintl_gettext
>
> ________________________________
> From: Sam Steingold <sd...@gn...>
> To: cli...@li...; Angel Popov <ang...@ya...>
> Sent: Monday, July 18, 2011 4:15 PM
> Subject: Re: Build on cygwin/windows has failed
>
>> * Angel Popov <nat...@ln...> [2011-07-17 21:38:46 -0700]:
>>
>> gcc -g -O2 -W -Wswitch -Wcomment -Wpointer-arith -Wimplicit
>> -Wreturn-type -Wmissing-declarations -Wno-sign-compare
>> -Wno-format-nonliteral -O2 -fexpensive-optimizations -fal
>> ign-functions=4 -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES
>> -I. -DDLL_EXPORT -DPIC -Wl,--export-all-symbols modules.o readline.o
>> -lreadline -lncurses regexi.o calls.o
>> bogomips.o -lcrypt -luser32 -lole32 -loleaut32 -luuid gettext.o lisp.a
>> lisp.def -lintl -lreadline -lncurses -lavcall -lcallback -lsigsegv
>> libgnu.a -o lisp.exe
>> libgnu.a(regex.o): In function `rpl_regerror':
>> /cygdrive/c/packages/clisp/build/gllib/../../src/gllib/regcomp.c:559:
>> undefined reference to `_libintl_gettext'
>> libgnu.a(regex.o): In function `rpl_re_compile_pattern':
>> /cygdrive/c/packages/clisp/build/gllib/../../src/gllib/regcomp.c:238:
>> undefined reference to `_libintl_gettext'
>> collect2: ld returned 1 exit status
>
> gettext is used in core also, so it is weird that you can create
> boot/lisp.exe but not base/lisp.exe
> please investigate why.
> e.g.:
> $ nm lisp.exe | grep gettext
> $ grep gettext config.h */config.h
> $ nm libgnu.a | grep gettext

-- 
Sam Steingold (http://sds.podval.org/) on CentOS release 5.6 (Final) X 11.0.60900031
http://pmw.org.il http://mideasttruth.com http://openvotingconsortium.org
http://truepeace.org http://jihadwatch.org http://memri.org
((lambda (x) (list x (list 'quote x))) '(lambda (x) (list x (list 'quote x))))

Re: gettext in regexp

[Sam S. <sd...@gn...>]

> * Angel Popov <nat...@ln...> [2011-07-29 07:05:13 -0700]:
>
> If regexp is removed from base modules, clisp compiles. With it,it failed.
>
> $ nm lisp.exe | grep gettext
> 005a4544 I __imp__libintl_dgettext
> 00406ce4 T _clgettext
> 004069a0 T _clgettextl
> 00406978 t _clisp_gettext
> 004d1b08 T _libintl_dgettext
>
> angel@bozhur /cygdrive/c/packages/clisp/build
> $ grep gettext config.h /*config.h
> config.h:/* Define if the GNU dcgettext() function is already present or preinstalled.
> config.h:/* Define if the GNU gettext() function is already present or preinstalled. */
> grep: /*config.h: No such file or directory

that's because you transposed '*' and '/'.

$ grep -i gettext config.h */config.h

> angel@bozhur /cygdrive/c/packages/clisp/build
> $ nm libgnu.a | grep gettext
> U _libintl_gettext
>
> ________________________________
> From: Sam Steingold <sd...@gn...>
> To: cli...@li...; Angel Popov <ang...@ya...>
> Sent: Monday, July 18, 2011 4:15 PM
> Subject: Re: Build on cygwin/windows has failed
>
>> * Angel Popov <nat...@ln...> [2011-07-17 21:38:46 -0700]:
>>
>> gcc -g -O2 -W -Wswitch -Wcomment -Wpointer-arith -Wimplicit
>> -Wreturn-type -Wmissing-declarations -Wno-sign-compare
>> -Wno-format-nonliteral -O2 -fexpensive-optimizations -fal
>> ign-functions=4 -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES
>> -I. -DDLL_EXPORT -DPIC -Wl,--export-all-symbols modules.o readline.o
>> -lreadline -lncurses regexi.o calls.o
>> bogomips.o -lcrypt -luser32 -lole32 -loleaut32 -luuid gettext.o lisp.a
>> lisp.def -lintl -lreadline -lncurses -lavcall -lcallback -lsigsegv
>> libgnu.a -o lisp.exe
>> libgnu.a(regex.o): In function `rpl_regerror':
>> /cygdrive/c/packages/clisp/build/gllib/../../src/gllib/regcomp.c:559:
>> undefined reference to `_libintl_gettext'
>> libgnu.a(regex.o): In function `rpl_re_compile_pattern':
>> /cygdrive/c/packages/clisp/build/gllib/../../src/gllib/regcomp.c:238:
>> undefined reference to `_libintl_gettext'
>> collect2: ld returned 1 exit status
>
> gettext is used in core also, so it is weird that you can create
> boot/lisp.exe but not base/lisp.exe
> please investigate why.
> e.g.:
> $ nm lisp.exe | grep gettext
> $ grep gettext config.h */config.h
> $ nm libgnu.a | grep gettext

-- 
Sam Steingold (http://sds.podval.org/) on CentOS release 5.6 (Final) X 11.0.60900031
http://pmw.org.il http://mideasttruth.com http://openvotingconsortium.org
http://truepeace.org http://jihadwatch.org http://memri.org
((lambda (x) (list x (list 'quote x))) '(lambda (x) (list x (list 'quote x))))

Re: different results in different configures

[Sam S. <sd...@gn...>]

> * Vladimir Tzankov <igm...@tz...> [2011-07-29 02:08:48 +0300]:
>
> On Fri, Jul 29, 2011 at 1:24 AM, Sam Steingold <sd...@gn...> wrote:
>>> * Vladimir Tzankov <igm...@tz...> [2011-07-29 00:17:37 +0300]:
>>>
>>> $ grep SIZEOF_OFF_T clisp.h config.h syscalls/config.h
>>> clisp.h:#define SIZEOF_OFF_T 8
>>> config.h:#define SIZEOF_OFF_T 8
>>> syscalls/config.h:#define SIZEOF_OFF_T 4
>>>
>>> $ grep SIZEOF_RLIM_T clisp.h config.h syscalls/config.h
>>> clisp.h:#define SIZEOF_RLIM_T 8
>>> config.h:#define SIZEOF_RLIM_T 8
>>> syscalls/config.h:#define SIZEOF_RLIM_T 4
>>
>> this is eminently wrong and warrants an investigation.
>> could you please take a look at config.log and syscalls/config.log to
>> find out why these SIZEOF's are defined differently?
>
> Not sure how helpful is information below:
>
> config.log:
> configure:33813: gcc -o conftest -g -O2   conftest.c -lavcall -lcallback >&5
> configure:33813: $? = 0
> configure:33813: ./conftest
> configure:33813: $? = 0
> configure:33828: result: 8
>
> syscall/config.log:
> configure:4795: checking size of off_t
> configure:4800: gcc -o conftest -g -O2   conftest.c  >&5
> configure:4800: $? = 0
> configure:4800: ./conftest
> configure:4800: $? = 0
> configure:4815: result: 4
>
> Similar rlim_t.
>
> machine is:
> Linux vtz 2.6.32-27-generic #49-Ubuntu SMP Wed Dec 1 23:52:12 UTC 2010
> i686 GNU/Linux
>
> following prints 4:
> #include <sys/types.h>
> main () { printf("%u", sizeof(off_t)); }

This just means that conftest.c from the main configure contains
includes and defines before #include <sys/types.h> which make it define
off_t to be a 64-bit type.  It would be nice if you could edit the
configure files by hand and make them save the appropriate conftest.c
files as, e.g., off_t.c.

Also, please try the appended patch. I am not sure it is the right one,
but it is worth a try...

We could, of course, just remove the offending tests from
syscall/configure, but that would be clearly wrong because there are
other sizeof tests there and, if syscall/configure gets off_t and rlim_t
wrong, chances are it gets the other ones wrong too.

-- 
Sam Steingold (http://sds.podval.org/) on CentOS release 5.6 (Final) X 11.0.60900031
http://mideasttruth.com http://honestreporting.com http://iris.org.il
http://jihadwatch.org http://palestinefacts.org http://dhimmi.com
Winners never quit; quitters never win; idiots neither win nor quit.


diff -r 0fcd98504516 modules/syscalls/config.h.in
--- a/modules/syscalls/config.h.in	Thu Jul 28 17:37:16 2011 -0400
+++ b/modules/syscalls/config.h.in	Fri Jul 29 10:10:30 2011 -0400
@@ -432,6 +432,17 @@
 /* Define to 1 if you have the ANSI C header files. */
 #undef STDC_HEADERS
 
+/* Enable large inode numbers on Mac OS X.  */
+#ifndef _DARWIN_USE_64_BIT_INODE
+# define _DARWIN_USE_64_BIT_INODE 1
+#endif
+
+/* Number of bits in a file offset, on hosts where this is settable. */
+#undef _FILE_OFFSET_BITS
+
+/* Define for large files, on AIX-style hosts. */
+#undef _LARGE_FILES
+
 /* Define to 1 if on MINIX. */
 #undef _MINIX
 
diff -r 0fcd98504516 modules/syscalls/configure
--- a/modules/syscalls/configure	Thu Jul 28 17:37:16 2011 -0400
+++ b/modules/syscalls/configure	Fri Jul 29 10:10:30 2011 -0400
@@ -718,6 +718,7 @@ ac_user_opts='
 enable_option_checking
 with_clisp
 enable_dependency_tracking
+enable_largefile
 '
       ac_precious_vars='build_alias
 host_alias
@@ -1349,6 +1350,7 @@ Optional Features:
   --enable-FEATURE[=ARG]  include FEATURE [ARG=yes]
   --disable-dependency-tracking  speeds up one-time build
   --enable-dependency-tracking   do not reject slow dependency extractors
+  --disable-largefile     omit support for large files
 
 Optional Packages:
   --with-PACKAGE[=ARG]    use PACKAGE [ARG=yes]
@@ -4788,6 +4790,206 @@ done
 if test "$ac_cv_header_shlobj_h" = yes ; then
    LIBS=${LIBS}' -luser32 -lole32 -loleaut32 -luuid';
 fi
+# Check whether --enable-largefile was given.
+if test "${enable_largefile+set}" = set; then :
+  enableval=$enable_largefile;
+fi
+
+if test "$enable_largefile" != no; then
+
+  { $as_echo "$as_me:${as_lineno-$LINENO}: checking for special C compiler options needed for large files" >&5
+$as_echo_n "checking for special C compiler options needed for large files... " >&6; }
+if test "${ac_cv_sys_largefile_CC+set}" = set; then :
+  $as_echo_n "(cached) " >&6
+else
+  ac_cv_sys_largefile_CC=no
+     if test "$GCC" != yes; then
+       ac_save_CC=$CC
+       while :; do
+	 # IRIX 6.2 and later do not support large files by default,
+	 # so use the C compiler's -n32 option if that helps.
+	 cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h.  */
+#include <sys/types.h>
+ /* Check that off_t can represent 2**63 - 1 correctly.
+    We can't simply define LARGE_OFF_T to be 9223372036854775807,
+    since some C++ compilers masquerading as C compilers
+    incorrectly reject 9223372036854775807.  */
+#define LARGE_OFF_T (((off_t) 1 << 62) - 1 + ((off_t) 1 << 62))
+  int off_t_is_large[(LARGE_OFF_T % 2147483629 == 721
+		       && LARGE_OFF_T % 2147483647 == 1)
+		      ? 1 : -1];
+int
+main ()
+{
+
+  ;
+  return 0;
+}
+_ACEOF
+	 if ac_fn_c_try_compile "$LINENO"; then :
+  break
+fi
+rm -f core conftest.err conftest.$ac_objext
+	 CC="$CC -n32"
+	 if ac_fn_c_try_compile "$LINENO"; then :
+  ac_cv_sys_largefile_CC=' -n32'; break
+fi
+rm -f core conftest.err conftest.$ac_objext
+	 break
+       done
+       CC=$ac_save_CC
+       rm -f conftest.$ac_ext
+    fi
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sys_largefile_CC" >&5
+$as_echo "$ac_cv_sys_largefile_CC" >&6; }
+  if test "$ac_cv_sys_largefile_CC" != no; then
+    CC=$CC$ac_cv_sys_largefile_CC
+  fi
+
+  { $as_echo "$as_me:${as_lineno-$LINENO}: checking for _FILE_OFFSET_BITS value needed for large files" >&5
+$as_echo_n "checking for _FILE_OFFSET_BITS value needed for large files... " >&6; }
+if test "${ac_cv_sys_file_offset_bits+set}" = set; then :
+  $as_echo_n "(cached) " >&6
+else
+  while :; do
+  cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h.  */
+#include <sys/types.h>
+ /* Check that off_t can represent 2**63 - 1 correctly.
+    We can't simply define LARGE_OFF_T to be 9223372036854775807,
+    since some C++ compilers masquerading as C compilers
+    incorrectly reject 9223372036854775807.  */
+#define LARGE_OFF_T (((off_t) 1 << 62) - 1 + ((off_t) 1 << 62))
+  int off_t_is_large[(LARGE_OFF_T % 2147483629 == 721
+		       && LARGE_OFF_T % 2147483647 == 1)
+		      ? 1 : -1];
+int
+main ()
+{
+
+  ;
+  return 0;
+}
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+  ac_cv_sys_file_offset_bits=no; break
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+  cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h.  */
+#define _FILE_OFFSET_BITS 64
+#include <sys/types.h>
+ /* Check that off_t can represent 2**63 - 1 correctly.
+    We can't simply define LARGE_OFF_T to be 9223372036854775807,
+    since some C++ compilers masquerading as C compilers
+    incorrectly reject 9223372036854775807.  */
+#define LARGE_OFF_T (((off_t) 1 << 62) - 1 + ((off_t) 1 << 62))
+  int off_t_is_large[(LARGE_OFF_T % 2147483629 == 721
+		       && LARGE_OFF_T % 2147483647 == 1)
+		      ? 1 : -1];
+int
+main ()
+{
+
+  ;
+  return 0;
+}
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+  ac_cv_sys_file_offset_bits=64; break
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+  ac_cv_sys_file_offset_bits=unknown
+  break
+done
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sys_file_offset_bits" >&5
+$as_echo "$ac_cv_sys_file_offset_bits" >&6; }
+case $ac_cv_sys_file_offset_bits in #(
+  no | unknown) ;;
+  *)
+cat >>confdefs.h <<_ACEOF
+#define _FILE_OFFSET_BITS $ac_cv_sys_file_offset_bits
+_ACEOF
+;;
+esac
+rm -rf conftest*
+  if test $ac_cv_sys_file_offset_bits = unknown; then
+    { $as_echo "$as_me:${as_lineno-$LINENO}: checking for _LARGE_FILES value needed for large files" >&5
+$as_echo_n "checking for _LARGE_FILES value needed for large files... " >&6; }
+if test "${ac_cv_sys_large_files+set}" = set; then :
+  $as_echo_n "(cached) " >&6
+else
+  while :; do
+  cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h.  */
+#include <sys/types.h>
+ /* Check that off_t can represent 2**63 - 1 correctly.
+    We can't simply define LARGE_OFF_T to be 9223372036854775807,
+    since some C++ compilers masquerading as C compilers
+    incorrectly reject 9223372036854775807.  */
+#define LARGE_OFF_T (((off_t) 1 << 62) - 1 + ((off_t) 1 << 62))
+  int off_t_is_large[(LARGE_OFF_T % 2147483629 == 721
+		       && LARGE_OFF_T % 2147483647 == 1)
+		      ? 1 : -1];
+int
+main ()
+{
+
+  ;
+  return 0;
+}
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+  ac_cv_sys_large_files=no; break
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+  cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h.  */
+#define _LARGE_FILES 1
+#include <sys/types.h>
+ /* Check that off_t can represent 2**63 - 1 correctly.
+    We can't simply define LARGE_OFF_T to be 9223372036854775807,
+    since some C++ compilers masquerading as C compilers
+    incorrectly reject 9223372036854775807.  */
+#define LARGE_OFF_T (((off_t) 1 << 62) - 1 + ((off_t) 1 << 62))
+  int off_t_is_large[(LARGE_OFF_T % 2147483629 == 721
+		       && LARGE_OFF_T % 2147483647 == 1)
+		      ? 1 : -1];
+int
+main ()
+{
+
+  ;
+  return 0;
+}
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+  ac_cv_sys_large_files=1; break
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+  ac_cv_sys_large_files=unknown
+  break
+done
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sys_large_files" >&5
+$as_echo "$ac_cv_sys_large_files" >&6; }
+case $ac_cv_sys_large_files in #(
+  no | unknown) ;;
+  *)
+cat >>confdefs.h <<_ACEOF
+#define _LARGE_FILES $ac_cv_sys_large_files
+_ACEOF
+;;
+esac
+rm -rf conftest*
+  fi
+
+
+fi
+
 # The cast to long int works around a bug in the HP C Compiler
 # version HP92453-01 B.11.11.23709.GP, which incorrectly rejects
 # declarations like `int a3[[(sizeof (unsigned char)) >= 0]];'.
diff -r 0fcd98504516 modules/syscalls/configure.in
--- a/modules/syscalls/configure.in	Thu Jul 28 17:37:16 2011 -0400
+++ b/modules/syscalls/configure.in	Fri Jul 29 10:10:30 2011 -0400
@@ -20,6 +20,7 @@ sys/statvfs.h sys/statfs.h sys/param.h f
 if test "$ac_cv_header_shlobj_h" = yes ; then
    LIBS=${LIBS}' -luser32 -lole32 -loleaut32 -luuid';
 fi
+AC_SYS_LARGEFILE
 AC_CHECK_SIZEOF(off_t)
 AC_CHECK_SIZEOF(gid_t)
 AC_CHECK_SIZEOF(pid_t)

Re: Build on cygwin/windows has failed

[Angel P. <ang...@ya...>]

Hi,

If regexp is removed from base modules, clisp compiles. With it,it failed.


$ nm lisp.exe | grep gettext
005a4544 I __imp__libintl_dgettext
00406ce4 T _clgettext
004069a0 T _clgettextl
00406978 t _clisp_gettext
004d1b08 T _libintl_dgettext

angel@bozhur /cygdrive/c/packages/clisp/build
$ grep gettext config.h /*config.h
config.h:/* Define if the GNU dcgettext() function is already present or preinstalled.
config.h:/* Define if the GNU gettext() function is already present or preinstalled. */
grep: /*config.h: No such file or directory

angel@bozhur /cygdrive/c/packages/clisp/build
$ nm libgnu.a | grep gettext
U _libintl_gettext

Regards, AngelP




________________________________
From: Sam Steingold <sd...@gn...>
To: cli...@li...; Angel Popov <ang...@ya...>
Sent: Monday, July 18, 2011 4:15 PM
Subject: Re: Build on cygwin/windows has failed

> * Angel Popov <nat...@ln...> [2011-07-17 21:38:46 -0700]:
>
> gcc -g -O2 -W -Wswitch -Wcomment -Wpointer-arith -Wimplicit
> -Wreturn-type -Wmissing-declarations -Wno-sign-compare
> -Wno-format-nonliteral -O2 -fexpensive-optimizations -fal
> ign-functions=4 -DENABLE_UNICODE -DDYNAMIC_FFI -DDYNAMIC_MODULES
> -I. -DDLL_EXPORT -DPIC -Wl,--export-all-symbols modules.o readline.o
> -lreadline -lncurses regexi.o calls.o
> bogomips.o -lcrypt -luser32 -lole32 -loleaut32 -luuid gettext.o lisp.a
> lisp.def -lintl -lreadline -lncurses -lavcall -lcallback -lsigsegv
> libgnu.a -o lisp.exe
> libgnu.a(regex.o): In function `rpl_regerror':
> /cygdrive/c/packages/clisp/build/gllib/../../src/gllib/regcomp.c:559:
> undefined reference to `_libintl_gettext'
> libgnu.a(regex.o): In function `rpl_re_compile_pattern':
> /cygdrive/c/packages/clisp/build/gllib/../../src/gllib/regcomp.c:238:
> undefined reference to `_libintl_gettext'
> collect2: ld returned 1 exit status

gettext is used in core also, so it is weird that you can create
boot/lisp.exe but not base/lisp.exe
please investigate why.
e.g.:
$ nm lisp.exe | grep gettext
$ grep gettext config.h */config.h
$ nm libgnu.a | grep gettext



-- 
Sam Steingold (http://sds.podval.org/) on CentOS release 5.6 (Final) X 11.0.60900031
http://jihadwatch.org http://truepeace.org http://pmw.org.il
http://iris.org.il http://thereligionofpeace.com http://camera.org
Feynman: 'Philosophy of science is as useful to scientists as ornithology is to birds'

clisp-cvs Digest, Vol 62, Issue 11

[<cli...@li...>]

Send clisp-cvs mailing list submissions to
	cli...@li...

To subscribe or unsubscribe via the World Wide Web, visit
	https://lists.sourceforge.net/lists/listinfo/clisp-cvs
or, via email, send a message with subject or body 'help' to
	cli...@li...

You can reach the person managing the list at
	cli...@li...

When replying, please edit your Subject line so it is more specific
than "Re: Contents of clisp-cvs digest..."


CLISP CVS commits for today

Today's Topics:

   1. clisp: * src/makemake.in (GLLIB_MODULE_HEADERS): set to
      regex.h ... (cli...@li...)
   2. clisp: * configure: do not link over anything
      (cli...@li...)
   3. clisp: * src/socket.d (CLOSE): do not redefine the unix.d
      defini... (cli...@li...)
   4. clisp: (main) [WIN32_NATIVE]: release memory allocated by
      Format... (cli...@li...)
   5. clisp: (locale): use `if' instead of `&&' to always succeed
      (cli...@li...)


----------------------------------------------------------------------

Message: 1
Date: Thu, 28 Jul 2011 17:22:02 +0000
From: cli...@li...
Subject: clisp: * src/makemake.in (GLLIB_MODULE_HEADERS): set to
	regex.h ...
To: cli...@li...
Message-ID:
	<hg....@vz...>
Content-Type: text/plain; charset="us-ascii"

details:   http://clisp.hg.sourceforge.net/hgweb/clisp/clisp/clisp/rev/200123069a96
changeset: 15490:200123069a96dc0535aa5fba2636141fd5ae55d5
user:      Sam Steingold <sd...@po...>
date:      2011-07-28 13:09:37 -0400
description:
* src/makemake.in (GLLIB_MODULE_HEADERS): set to regex.h for regexp

diffstat:

 src/ChangeLog   |  4 ++++
 src/makemake.in |  4 ++--
 2 files changed, 6 insertions(+), 2 deletions(-)



------------------------------

Message: 2
Date: Thu, 28 Jul 2011 19:34:31 +0000
From: cli...@li...
Subject: clisp: * configure: do not link over anything
To: cli...@li...
Message-ID:
	<hg....@vz...>
Content-Type: text/plain; charset="us-ascii"

details:   http://clisp.hg.sourceforge.net/hgweb/clisp/clisp/clisp/rev/676c661d88ae
changeset: 15491:676c661d88ae5adf279380aaed5dff6ce0c1cd48
user:      Sam Steingold <sd...@po...>
date:      2011-07-28 15:34:10 -0400
description:
* configure: do not link over anything
* src/makemake.in (po): new target
(makemake.in, config.h.in, configure): remove link_dep targets
(makemake, config.h, config.status): depend on files in SRCDIR
* src/po/Makefile.in.in (VPATH): add

diffstat:

 configure             |  31 +++----------------------------
 src/ChangeLog         |   8 ++++++++
 src/makemake.in       |  56 +++++++++++++++++++-------------------------------------
 src/po/Makefile.in.in |   1 +
 4 files changed, 31 insertions(+), 65 deletions(-)



------------------------------

Message: 3
Date: Thu, 28 Jul 2011 22:02:38 +0000
From: cli...@li...
Subject: clisp: * src/socket.d (CLOSE): do not redefine the unix.d
	defini...
To: cli...@li...
Message-ID:
	<hg....@vz...>
Content-Type: text/plain; charset="us-ascii"

details:   http://clisp.hg.sourceforge.net/hgweb/clisp/clisp/clisp/rev/0fcd98504516
changeset: 15492:0fcd985045164b25c063bb8b00473018b5e44c89
user:      Sam Steingold <sd...@po...>
date:      2011-07-28 17:37:16 -0400
description:
* src/socket.d (CLOSE): do not redefine the unix.d definition

diffstat:

 src/ChangeLog |  4 ++++
 src/socket.d  |  4 ----
 2 files changed, 4 insertions(+), 4 deletions(-)



------------------------------

Message: 4
Date: Thu, 28 Jul 2011 22:56:36 +0000
From: cli...@li...
Subject: clisp: (main) [WIN32_NATIVE]: release memory allocated by
	Format...
To: cli...@li...
Message-ID:
	<hg....@vz...>
Content-Type: text/plain; charset="us-ascii"

details:   http://clisp.hg.sourceforge.net/hgweb/clisp/clisp/clisp/rev/9f6ee5f74fed
changeset: 15493:9f6ee5f74fed9ca5bab2e4e202c8375770292f7d
user:      Sam Steingold <sd...@po...>
date:      2011-07-28 18:05:27 -0400
description:
(main) [WIN32_NATIVE]: release memory allocated by FormatMessage

diffstat:

 src/_clisp.c |  1 +
 1 files changed, 1 insertions(+), 0 deletions(-)



------------------------------

Message: 5
Date: Thu, 28 Jul 2011 22:56:37 +0000
From: cli...@li...
Subject: clisp: (locale): use `if' instead of `&&' to always succeed
To: cli...@li...
Message-ID:
	<hg....@vz...>
Content-Type: text/plain; charset="us-ascii"

details:   http://clisp.hg.sourceforge.net/hgweb/clisp/clisp/clisp/rev/f42a5906ba84
changeset: 15494:f42a5906ba843c5da4d0f19af343efbd727157af
user:      Sam Steingold <sd...@po...>
date:      2011-07-28 18:06:13 -0400
description:
(locale): use `if' instead of `&&' to always succeed

diffstat:

 src/makemake.in |  2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)



------------------------------

------------------------------------------------------------------------------
Got Input?   Slashdot Needs You.
Take our quick survey online.  Come on, we don't ask for help often.
Plus, you'll get a chance to win $100 to spend on ThinkGeek.
http://p.sf.net/sfu/slashdot-survey

------------------------------

_______________________________________________
clisp-cvs mailing list
cli...@li...
https://lists.sourceforge.net/lists/listinfo/clisp-cvs


End of clisp-cvs Digest, Vol 62, Issue 11
*****************************************