Perwersja

; SLIME 2006-09-28
CL-USER> (defvar *symbols*)
*SYMBOLS*
CL-USER> (setf *symbols* (list :foo :bar :baz :quux))
(:FOO :BAR :BAZ :QUUX)
CL-USER> `(defpackage foobar (:export :a :b :c ,@*symbols*))
(DEFPACKAGE FOOBAR (:EXPORT :A :B :C :FOO :BAR :BAZ :QUUX))
CL-USER> #.`(defpackage foobar (:export :a :b :c ,@*symbols*))
#<The FOOBAR package>
CL-USER> (do-external-symbols (sym *) (print sym))

FOOBAR:BAR 
FOOBAR:C 
FOOBAR:B 
FOOBAR:BAZ 
FOOBAR:A 
FOOBAR:FOO 
FOOBAR:QUUX 
NIL
CL-USER> 
  1. Nat powiedział(a):

    (defun :- ()
    (progn
    (nice)
    (gotta (go work))))

    (:-)

    Btw ręcznie pokolorowałeś output ze SLIME-a, czy Emacs Ci to jakoś automagicznie załatwił?

  2. maciekp powiedział(a):

    http://fly.srk.fer.hr/~hniksic/emacs/htmlize.el + http://japhy.fnord.org/pub/htmlize.el-inline_css.patch.gz coby nie robił <style/>, a <span style="..."/> i dało się przeklejać (posłałem łatkę upstream, ale jak na razie bez odpowiedzi).

  3. japhy powiedział(a):

    Upstreamowy htmlize.el już obsługuje styl inline-css, można spokojnie wklejać kolorowy kod nic nie patchując :)

Dodaj komentarz: