[clpython-devel] `#1=(,) ... `#1# fails on ccl.

[Pascal J. Bourguignon]

 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__