From pjb at informatimago.com  Fri Jan 11 21:35:07 2013
From: pjb at informatimago.com (Pascal J. Bourguignon)
Date: Fri, 11 Jan 2013 22:35:07 +0100
Subject: [clpython-devel] No such symbol in pkg clpython: py-<
In-Reply-To: <mailman.101.1357913022.1339.clpython-devel@common-lisp.net>
References: <mailman.101.1357913022.1339.clpython-devel@common-lisp.net>
Message-ID: <75FF6D9E-E056-48EF-B6F0-B85210567E8D@informatimago.com>


Hi!

Trying clpython from quick lisp, it fails with the following error.

Obviously, somebody forgot with-standard-io-syntax between format and intern...



; SLIME 2012-09-04
cl-user> (ql:quickload :clpython)
To load "clpython":
 Load 1 ASDF system:
   clpython
; Loading "clpython"
;;; Compiling Python grammar for CL-Yacc...
..................................................
[package clpython.lispy.stuff]....................
[package clpython.module.array]...................
[package clpython.module.binascii]................
[package clpython.module.cstringio]...............
[package clpython.module.errno]...................
[package clpython.module.exceptions]..............
[package clpython.module.gc]......................
[package clpython.module.imp].....................
[package clpython.module.math]....................
[package clpython.module.operator]................
[package clpython.module.posix]...................
[package clpython.module._random].................
[package clpython.module.re]......................
[package clpython.module._socket].................
[package clpython.module.string]..................
[package clpython.module.symbol]..................
[package clpython.module.sys].....................
[package clpython.module.thread]..................
[package clpython.module.time]...1


No such symbol in pkg clpython: py-<
  [Condition of type simple-condition]

Restarts:
0: [continue] Return from BREAK.
1: [retry-compile-file] Retry compiling #P"/Volumes/Data/pbourguignon/quicklisp/dists/quicklisp/software/clpython-20110730-git/lib/operator.lisp"
2: [skip-compile-file] Skip compiling #P"/Volumes/Data/pbourguignon/quicklisp/dists/quicklisp/software/clpython-20110730-git/lib/operator.lisp"
3: [retry] Retry compiling #<cl-source-file "clpython.lib" "lib" "operator">.
4: [accept] Continue, treating compiling #<cl-source-file "clpython.lib" "lib" "operator"> as having been successful.
5: [abort] Give up on "clpython"
--more--

Backtrace:
 0: (clpython.module.operator::sym->op #<Unknown Arguments>)
 1: (#<Anonymous Function #x3020032FA5AF>)
 2: (ccl::cheap-eval-in-environment (list* 'progn (loop clpython.module.operator::for (clpython.module.operator::m..
 3: (ccl::cheap-eval (list* 'progn (loop clpython.module.operator::for (clpython.module.operator::meth clpython.mo..
 4: (ccl::read-dispatch #<basic-file-character-input-stream ("/Volumes/Data/pbourguignon/quicklisp/dists/quicklisp..
 5: (ccl::%parse-expression #<basic-file-character-input-stream ("/Volumes/Data/pbourguignon/quicklisp/dists/quick..
 6: (ccl::%read-form #<basic-file-character-input-stream ("/Volumes/Data/pbourguignon/quicklisp/dists/quicklisp/so..
 7: (ccl::read-internal #<basic-file-character-input-stream ("/Volumes/Data/pbourguignon/quicklisp/dists/quicklisp..
 8: (ccl::read-recording-source #<basic-file-character-input-stream ("/Volumes/Data/pbourguignon/quicklisp/dists/q..
 9: (ccl::fcomp-read-loop "/Volumes/Data/pbourguignon/quicklisp/dists/quicklisp/software/clpython-20110730-git/lib..
10: (ccl::fcomp-file "/Volumes/Data/pbourguignon/quicklisp/dists/quicklisp/software/clpython-20110730-git/lib/oper..
11: (ccl::%compile-file "/Volumes/Data/pbourguignon/quicklisp/dists/quicklisp/software/clpython-20110730-git/lib/o..
12: (compile-file #P"/Volumes/Data/pbourguignon/quicklisp/dists/quicklisp/software/clpython-20110730-git/lib/opera..
13: (asdf:compile-file* #P"/Volumes/Data/pbourguignon/quicklisp/dists/quicklisp/software/clpython-20110730-git/lib..
14: ((:internal (asdf:perform (asdf:compile-op asdf:cl-source-file))))
15: (#<standard-method asdf::call-with-around-compile-hook (asdf:component t)> #<cl-source-file "clpython.lib" "li..
16: (#<standard-method asdf:perform (asdf:compile-op asdf:cl-source-file)> #<compile-op (:verbose nil) #x3020025F8..
17: (ccl::%%before-and-after-combined-method-dcode (nil #<standard-method asdf:perform (asdf:compile-op asdf:cl-so..
18: (ccl::%%standard-combined-method-dcode ((#<standard-method asdf:perform :before (asdf:compile-op asdf:source-f..
19: (nil #<Unknown Arguments>)
20: (nil #<Unknown Arguments>)
21: (#<standard-method asdf::perform-with-restarts (t t)> #<compile-op (:verbose nil) #x3020025F8C5D> #<cl-source-..
22: (ccl::%call-next-method (nil #<standard-method asdf::perform-with-restarts (t t)> . 76455387))
23: (#<standard-method asdf::perform-with-restarts :around (t t)> #<compile-op (:verbose nil) #x3020025F8C5D> #<cl..
24: (ccl::%%standard-combined-method-dcode (#<standard-method asdf::perform-with-restarts :around (t t)> #<standar..
25: (nil #<Unknown Arguments>)
26: ((:internal ccl::with-compilation-unit-body (asdf::perform-plan (list))))
27: (ccl::call-with-compilation-unit #<ccl:compiled-lexical-closure (:internal ccl::with-compilation-unit-body (as..
28: (#<standard-method asdf::perform-plan (list)> ((#1=#<load-op (:verbose nil) #x3020025EF12D> . #<cl-source-file..
29: (ccl::%%check-keywords #(1 #() #<ccl:method-function asdf::perform-plan (list)>) 76455429)
30: (nil #<Unknown Arguments>)
31: ((:internal (asdf:operate (t t))))
32: (asdf::call-with-system-definitions #<ccl:compiled-lexical-closure (:internal (asdf:operate (t t))) #x3020025D..
33: (#<standard-method asdf:operate (t t)> asdf:load-op "clpython" :verbose nil)
34: (ccl::%%standard-combined-method-dcode ((#<standard-method asdf:operate :before (t t)>) nil #<standard-method ..
35: (nil #<Unknown Arguments>)
36: (asdf:oos asdf:load-op "clpython" :verbose nil)
37: ((:internal quicklisp-client::apply-load-strategy))
38: (quicklisp-client::call-with-macroexpand-progress #<ccl:compiled-lexical-closure (:internal quicklisp-client::..
39: (quicklisp-client::apply-load-strategy #<load-strategy "clpython" (1 asdf, 0 quicklisp)>)
--more--




-- 
__Pascal Bourguignon__
http://www.informatimago.com






From metawilm at gmail.com  Sat Jan 12 17:01:40 2013
From: metawilm at gmail.com (Willem Broekema)
Date: Sat, 12 Jan 2013 18:01:40 +0100
Subject: [clpython-devel] No such symbol in pkg clpython: py-<
In-Reply-To: <75FF6D9E-E056-48EF-B6F0-B85210567E8D@informatimago.com>
References: <mailman.101.1357913022.1339.clpython-devel@common-lisp.net>
	<75FF6D9E-E056-48EF-B6F0-B85210567E8D@informatimago.com>
Message-ID: <CAHP7kS9EnQbLQ+FNw=eKDZNUa1X=3t-Upv0H_GdSbwUTTmE04A@mail.gmail.com>

Hi Pascal,

On Fri, Jan 11, 2013 at 10:35 PM, Pascal J. Bourguignon <
pjb at informatimago.com> wrote:

>
> Hi!
>
> Trying clpython from quick lisp, it fails with the following error.
>
> Obviously, somebody forgot with-standard-io-syntax between format and
> intern...
>
>
Thanks for the report. It should be fixed now, in the repo on Github.

- Willem
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/clpython-devel/attachments/20130112/0370b7e8/attachment.html>

From pjb at informatimago.com  Mon Jan 14 13:32:44 2013
From: pjb at informatimago.com (Pascal J. Bourguignon)
Date: Mon, 14 Jan 2013 14:32:44 +0100
Subject: [clpython-devel] =?utf-8?b?YCMxPSgsKSAuLi4gYCMxIyBmYWlscyBvbiBj?=
	=?utf-8?b?Y2wu?=
Message-ID: <908d72caed6a462613086085c014f120@voyager.informatimago.com>

 Hi!

 When trying to load a module (import ast) in clpython on ccl 
 (1.9-dev-r15508), it fails
 on  `(let* ((.undecorated-func #1#) ...)

 with the following patch, it works better.  Since the expansion of #\` 
 is implementation dependent,
 it might be safer to avoid kludges involving it.


 ------------------------------------------------------------------------------------------------------
 diff --git a/compiler/compiler.lisp b/compiler/compiler.lisp
 index 6bbc61a..adf8bb7 100644
 --- a/compiler/compiler.lisp
 +++ b/compiler/compiler.lisp
 @@ -1212,15 +1212,19 @@ LOCALS shares share tail structure with input 
 arg locals."
                                          (if **-arg #x08 0)
                                          (if generator-p #x20 0)))))
            (when (keywordp fname)
 -	    (return-from funcdef-stmt-1 `#1=(make-py-function :name ',fname
 -                                                              
 :context-name ',context-fname
 -                                                              :lambda 
 ,func-lambda
 -                                                              
 :func-globals ,(get-module-namespace e)
 -                                                              
 :func-code ,func-code)))
 +            (return-from funcdef-stmt-1 `(make-py-function :name 
 ',fname
 +                                                           
 :context-name ',context-fname
 +                                                           :lambda 
 ,func-lambda
 +                                                           
 :func-globals ,(get-module-namespace e)
 +                                                           :func-code 
 ,func-code)))
            (let ((art-deco '.undecorated-func))
              (dolist (x (reverse decorators))
                (setf art-deco `(py-call ,x ,art-deco)))
 -            `(let* ((.undecorated-func #1#)
 +            `(let* ((.undecorated-func (make-py-function :name ',fname
 +                                                         :context-name 
 ',context-fname
 +                                                         :lambda 
 ,func-lambda
 +                                                         :func-globals 
 ,(get-module-namespace e)
 +                                                         :func-code 
 ,func-code))
                      (.decorated-func ,art-deco))
                 ;; Ugly special case:
                 ;;  class C:
 ------------------------------------------------------------------------------------------------------

-- 
 __Pascal Bourguignon__



From metawilm at gmail.com  Wed Jan 16 17:55:18 2013
From: metawilm at gmail.com (Willem Broekema)
Date: Wed, 16 Jan 2013 18:55:18 +0100
Subject: [clpython-devel] `#1=(,) ... `#1# fails on ccl.
In-Reply-To: <908d72caed6a462613086085c014f120@voyager.informatimago.com>
References: <908d72caed6a462613086085c014f120@voyager.informatimago.com>
Message-ID: <CAHP7kS9Xv0AVVodOUu_-4Uj_OYcvJk01+u04zB31Hs0ofZpyaA@mail.gmail.com>

On Mon, Jan 14, 2013 at 2:32 PM, Pascal J. Bourguignon <
pjb at informatimago.com> wrote:

> Hi!
>
> When trying to load a module (import ast) in clpython on ccl
> (1.9-dev-r15508), it fails
> on  `(let* ((.undecorated-func #1#) ...)
>
> with the following patch, it works better.  Since the expansion of #\` is
> implementation dependent,
> it might be safer to avoid kludges involving it.
>

Thanks for the report and fix!
I've applied it on Github.

- Willem
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/clpython-devel/attachments/20130116/d71326bf/attachment.html>