edicl / cl-interpol Goto Github PK

View Code? Open in Web Editor NEW

58.0 58.0 12.0 216 KB

Common Lisp surface syntax niceties

Home Page: http://edicl.github.io/cl-interpol/

Common Lisp 99.28% Perl 0.72%

common-lisp

cl-interpol's People

Contributors

Stargazers

Watchers

Forkers

publitechs mcna segv mmaul salewski phmarek stalafuse svetlyak40wt davidalphafox samuel-jimenez dumaiu

cl-interpol's Issues

Can't compile-bundle-op with SBCL 2.0.6

It used to work with SBCL 2.0.5. Now I get this stacktrace:

Invoking sbcl: "/gnu/store/08mkgwcib4rnlaxnq7dw9q9hzchz65lf-sbcl-2.0.6/bin/sbcl" "--non-interactive" "--eval" "(require :asdf)" "--eval" "(asdf:load-asd (truename \"/gnu/store/d1w4mkf8iprcqgz2xdl427fh1lmxhnvx-sbcl-cl-interpol-0.2.6-1.1fd288d/share/common-lisp/sbcl-source/cl-interpol/cl-interpol.asd\") :name \"cl-interpol\")" "--eval" "(asdf:operate (quote asdf:compile-bundle-op) \"cl-interpol\")" 
This is SBCL 2.0.6, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

SBCL is free software, provided as is, with absolutely no warranty.
It is mostly in the public domain; some portions are provided under
BSD-style licenses.  See the CREDITS and COPYING files in the
distribution for more information.
WARNING: System definition file #P"/gnu/store/d1w4mkf8iprcqgz2xdl427fh1lmxhnvx-sbcl-cl-interpol-0.2.6-1.1fd288d/share/common-lisp/sbcl-source/cl-interpol/cl-interpol.asd" contains definition for system "cl-interpol-test". Please only define "cl-interpol" and secondary systems with a name starting with "cl-interpol/" (e.g. "cl-interpol/test") in that file.
WARNING: PARSE-VERSION: "0.9-2.64bd53f" doesn't follow asdf version numbering convention
WARNING: Invalid :version specifier "0.9-2.64bd53f" for component "named-readtables" from file #P"/gnu/store/aqjnndhn5q4fdx7jl1daib6wqlqb4izc-sbcl-named-readtables-0.9-2.64bd53f/lib/sbcl/named-readtables.asd", using NIL instead
WARNING: Invalid :version specifier "0.9-2.64bd53f" for component "named-readtables" from file #P"/gnu/store/aqjnndhn5q4fdx7jl1daib6wqlqb4izc-sbcl-named-readtables-0.9-2.64bd53f/lib/sbcl/named-readtables.asd", using NIL instead
;;; Computing Hangul syllable namesUnhandled TYPE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING
                                  {10009F0083}>:
  The value
    0
  is not of type
    LIST

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {10009F0083}>
0: (SB-IMPL:DISPATCH-TABLES #<error printing a READTABLE: #<UNDEFINED-FUNCTION READTABLE-NAME {10022CE0D3}>> T)
1: (%MAKE-READTABLE-ITERATOR #<error printing a READTABLE: #<UNDEFINED-FUNCTION READTABLE-NAME {10022D12F3}>>)
2: (%CLEAR-READTABLE #<error printing a READTABLE: #<UNDEFINED-FUNCTION READTABLE-NAME {10022D4293}>>)
3: (SB-FASL::LOAD-FASL-GROUP #S(SB-FASL::FASL-INPUT :STREAM #<SB-SYS:FD-STREAM for "file /gnu/store/aqjnndhn5q4fdx7jl1daib6wqlqb4izc-sbcl-named-readtables-0.9-2.64bd53f/lib/sbcl/named-readtables--system.fasl" {100222C0B3}> :TABLE #(899 SET *PACKAGE* "EDITOR-HINTS.NAMED-READTABLES" #<PACKAGE "SB-C"> SB-C::%DEFMACRO #<PACKAGE "EDITOR-HINTS.NAMED-READTABLES"> DEFREADTABLE #<PACKAGE "SB-VM"> SB-VM::CONS->R11 SB-VM::CONS->RNN REMOVE-IF-NOT ...) :STACK #(3 SB-IMPL::%DEFVAR *EMPTY-READTABLE* #S(SB-C:DEFINITION-SOURCE-LOCATION :NAMESTRING "/gnu/store/aqjnndhn5q4fdx7jl1daib6wqlqb4izc-sbcl-named-readtables-0.9-2.64bd53f/share/common-lisp/sbcl-source/named-readtables/src/named-readtables.lisp" :INDICES 753665) %CLEAR-READTABLE #<error printing a READTABLE: #<UNDEFINED-FUNCTION READTABLE-NAME {10022DB003}>> NIL SB-KERNEL:%FUN-NAME 124361 FDEFINITION 117449 FDEFINITION ...) :NAME-BUFFER #("\0" "%STANDARD-READTABLEACRO-CLOSURE-NAME-P-P") :DEPRECATED-STUFF NIL :SKIP-UNTIL NIL) NIL)
4: (SB-FASL::LOAD-AS-FASL #<SB-SYS:FD-STREAM for "file /gnu/store/aqjnndhn5q4fdx7jl1daib6wqlqb4izc-sbcl-named-readtables-0.9-2.64bd53f/lib/sbcl/named-readtables--system.fasl" {100222C0B3}> NIL NIL)
5: ((FLET SB-FASL::THUNK :IN LOAD))
6: (SB-FASL::CALL-WITH-LOAD-BINDINGS #<CLOSURE (FLET SB-FASL::THUNK :IN LOAD) {7FFFF797690B}> #<SB-SYS:FD-STREAM for "file /gnu/store/aqjnndhn5q4fdx7jl1daib6wqlqb4izc-sbcl-named-readtables-0.9-2.64bd53f/lib/sbcl/named-readtables--system.fasl" {100222C0B3}>)
7: ((FLET SB-FASL::LOAD-STREAM :IN LOAD) #<SB-SYS:FD-STREAM for "file /gnu/store/aqjnndhn5q4fdx7jl1daib6wqlqb4izc-sbcl-named-readtables-0.9-2.64bd53f/lib/sbcl/named-readtables--system.fasl" {100222C0B3}> T)
8: (LOAD #P"/gnu/store/aqjnndhn5q4fdx7jl1daib6wqlqb4izc-sbcl-named-readtables-0.9-2.64bd53f/lib/sbcl/named-readtables--system.fasl" :VERBOSE NIL :PRINT NIL :IF-DOES-NOT-EXIST T :EXTERNAL-FORMAT :DEFAULT)
9: (UIOP/UTILITY:CALL-WITH-MUFFLED-CONDITIONS #<CLOSURE (LAMBDA NIL :IN UIOP/LISP-BUILD:LOAD*) {100222AD0B}> ("Overwriting already existing readtable ~S." #(#:FINALIZERS-OFF-WARNING :ASDF-FINALIZERS)))
10: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/BUNDLE:COMPILED-FILE "named-readtables" "named-readtables--system">)
11: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
12: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/BUNDLE:COMPILED-FILE "named-readtables" "named-readtables--system">) [fast-method]
13: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {10054BE813}>) [fast-method]
14: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
15: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {10054BE813}>) [fast-method]
16: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/BUNDLE:COMPILE-BUNDLE-OP > #<ASDF/SYSTEM:SYSTEM "cl-interpol"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
17: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/BUNDLE:COMPILE-BUNDLE-OP > #<ASDF/SYSTEM:SYSTEM "cl-interpol">)
18: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
19: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/BUNDLE:COMPILE-BUNDLE-OP > #<ASDF/SYSTEM:SYSTEM "cl-interpol">) [fast-method]
20: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/BUNDLE:COMPILE-BUNDLE-OP "cl-interpol")
21: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
22: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/BUNDLE:COMPILE-BUNDLE-OP "cl-interpol") [fast-method]
23: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {10054AC5BB}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
24: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
25: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {100548E64B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
26: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/BUNDLE:COMPILE-BUNDLE-OP "cl-interpol") [fast-method]
27: (SB-INT:SIMPLE-EVAL-IN-LEXENV (ASDF/OPERATE:OPERATE (QUOTE ASDF/BUNDLE:COMPILE-BUNDLE-OP) "cl-interpol") #<NULL-LEXENV>)
28: (EVAL (ASDF/OPERATE:OPERATE (QUOTE ASDF/BUNDLE:COMPILE-BUNDLE-OP) "cl-interpol"))
29: (SB-IMPL::PROCESS-EVAL/LOAD-OPTIONS ((:EVAL . "(require :asdf)") (:EVAL . "(asdf:load-asd (truename \"/gnu/store/d1w4mkf8iprcqgz2xdl427fh1lmxhnvx-sbcl-cl-interpol-0.2.6-1.1fd288d/share/common-lisp/sbcl-source/cl-interpol/cl-interpol.asd\") :name \"cl-interpol\")") (:EVAL . "(asdf:operate (quote asdf:compile-bundle-op) \"cl-interpol\")") (:QUIT)))
30: (SB-IMPL::TOPLEVEL-INIT)
31: ((FLET SB-UNIX::BODY :IN SB-EXT:SAVE-LISP-AND-DIE))
32: ((FLET "WITHOUT-INTERRUPTS-BODY-14" :IN SB-EXT:SAVE-LISP-AND-DIE))
33: ((LABELS SB-IMPL::RESTART-LISP :IN SB-EXT:SAVE-LISP-AND-DIE))

Support named-readtables as a more modern way to enable syntax

Named-readtables are more convenient because it's in-readtable can be recognized by SLIME and SLY and they will use it information when evaluating regions of the code in the buffer.

I suggest to add something like that into the cl-interpol package along with existing enable-interpol-syntax macro:

(defpackage #:cl-interpol
  (:use #:cl)
  (:import-from #:named-readtables
                #:defreadtable))

(defreadtable :interpol-syntax
   (:merge :standard)
   (:dispatch-macro-char #\# #\? #'cl-interpol:interpol-reader))

After that anybody can use it in his code like that:

(defpackage #:my-package
  (:use #:cl)
  (:import-from #:named-readtables
                #:in-readtable))

(in-readtable :interpol-syntax)

(format t #?"The package: ${*package*}")

I'll make a pull-request if you agreed.

interpol macro?

Hello,

I have this macro in my code:

(defmacro interpol (string) 
  (with-input-from-string (s (prin1-to-string string))
    (cl-interpol:interpol-reader s nil nil :recursive-p nil)))

So I don't need to use the reader syntax. I just use the macro.

What do you think of including in cl-interpol?

not support multibyte unicode character like \xAA\xBB\xCC with external-format

#?"\xe9\x87\x8f\xe4\xbb\xb7"

"é��ä»·"

correct result should be "量价"

My temp solution is:

(babel:octets-to-string 
 (make-array 6 
             :element-type '(unsigned-byte 8) 
             :initial-contents (mapcar #'char-code
                                       (coerce #?"\xe9\x87\x8f\xe4\xbb\xb7"
                                               'list)))
 :encoding :utf-8)

"量价"

:description

Would you please consider adding a :description option to your system definition of cl-interpol?

Recommend Projects

React

A declarative, efficient, and flexible JavaScript library for building user interfaces.
Vue.js

🖖 Vue.js is a progressive, incrementally-adoptable JavaScript framework for building UI on the web.
Typescript

TypeScript is a superset of JavaScript that compiles to clean JavaScript output.
TensorFlow

An Open Source Machine Learning Framework for Everyone
Django

The Web framework for perfectionists with deadlines.
Laravel

A PHP framework for web artisans
D3

Bring data to life with SVG, Canvas and HTML. 📊📈🎉

Recommend Topics

javascript

JavaScript (JS) is a lightweight interpreted programming language with first-class functions.
web

Some thing interesting about web. New door for the world.
server

A server is a program made to process requests and deliver data to clients.
Machine learning

Machine learning is a way of modeling and interpreting data that allows a piece of software to respond intelligently.
Visualization

Some thing interesting about visualization, use data art
Game

Some thing interesting about game, make everyone happy.

Recommend Org

Facebook

We are working to build community through open source technology. NB: members must have two-factor auth.
Microsoft

Open source projects and samples from Microsoft.
Google

Google ❤️ Open Source for everyone.
Alibaba

Alibaba Open Source for everyone
D3

Data-Driven Documents codes.
Tencent

China tencent open source team.

Jobs

Jooble