mmaul

(defun to-ipynb (f o &key after-form (kernel "lisp"))
  "Generate Ipython notebook, from a Lisp source file.

+ All top level forms get their own code blocks in the notebook.
+ String sections at the top level generate markdown blocks.
+ Processing of the file is stopped if the symbol 'CUT== is found
 
- Arguments:
  - f : path to lisp source file

fukamachi

(ql:quickload '(chipz archive))

(defun extract-tarball (pathname)
  "Extract a tarball (.tar.gz) file to a directory (*default-pathname-defaults*)."
  (with-open-file (tarball-stream pathname
                   :direction :input
                   :element-type '(unsigned-byte 8))
    (archive::extract-files-from-archive
     (archive:open-archive 'archive:tar-archive
      (chipz:make-decompressing-stream 'chipz:gzip tarball-stream)

shamansir

<?xml version="1.0" encoding="UTF-8"?>
<!--

 Author: Ma Jiehong <ma.jiehong@gmail.com>
 Copyright (C) 2010 Ma Jiehong

 This library is free software; you can redistribute it and/or
 modify it under the terms of the GNU Library General Public
 License as published by the Free Software Foundation; either
 version 2 of the License, or (at your option) any later version.