Hacker News Reader

Comment by mahmud | Hacker News Reader

Instead of using implementation dependent functions, use a library like trivial-shell, which is also available via QuickLisp. It has the SHELL-COMMAND function you need.

http://common-lisp.net/project/trivial-shell/

View on HN

Also, you might find this slow little utility for converting a bunch of stuff into strings. It will do the job nicely, and it accepts every Lisp type.

  (defun str (&rest strings)
    (apply 'concatenate 'string
  	 (loop for x in strings 
               collecting (format nil "~a" x))))

You can use it like this:

  (shell (str "dot -Tpng -O " fname))

You might also find that WITH-OPEN-FILE arguments can get a little unwieldy to type in the repl, specially if you want to overwrite files, so you can use this WITH-TEXT-FILE macro. For binary files you will just need to add (:element-type '(unsigned-byte 8))

  (defmacro with-text-file ((stream path) &body body)
    `(with-open-file (,stream ,path
   			    :direction :io
			    :if-exists :supersede
			    :if-does-not-exist :create)
       ,@body))

How about simply this?

  (defun str (&rest strings)
    (format nil "~{~A~}" strings))

I consciously avoided that because FORMAT and LOOP mastery is something that should wait until one knows Lisp well. Introduced too early, they can either scare someone (in the case of format) or tempt one to start writing Pascal (in the case of loop; which is why deliberately used it for its collected result, and not its side-effect, as more common.)

FWIW, my first Lisp programs where board-games and I learned quite a bit about recursion trying to format ASCII art in curses. If I knew FORMAT had control, I wouldn't have learned much lisp so quickly, since quirky little DSLs are fascinating.

I use:

(defmacro str (string &rest strings)

`(concatenate 'string ,string ,@strings))

Cheers, I thought there might be something that was QL installable but didn't want to get sidetracked from the task at hand. I'll have a play with that in the morning :)

Enjoy yourself!

Of course, you're more than welcome to shoot me an email if you ever get stuck.

Here is a far more forgiving reference to Common Lisp than the Hyperspec, though don't let the fancy TeX typesetting intimidate you.

http://clqr.berlios.de/clqr-a4-consec.pdf

In addition to that, I think you should dump yourself a nice image with ASDF and QL builtin, so you don't have to load them every time.

Thanks again for the advice, and the offer. Be warned, I may take you up on it :)

I shall investigate creating that image. I found ASDF to be a bit problematic when I tried it on it's own (which is probably down to my inexperience), but QL worked first time.

Reply on news.ycombinator.com