[cl-debian] Bug#374744: cl-typesetting: cl-typegraph fails to compile in sbcl

[anoop aryal]

Package: cl-typesetting
Version: 117-2
Severity: important
Tags: patch


ext:run-program is used for both cmu and sbcl in graph.lisp. once i
changed the line to read sb-ext:run-program it seems to be
working. patch attached.

-- System Information:
Debian Release: testing/unstable
  APT prefers unstable
  APT policy: (500, 'unstable')
Architecture: i386 (i686)
Shell:  /bin/sh linked to /bin/bash
Kernel: Linux 2.6.16-2-686-smp
Locale: LANG=C, LC_CTYPE=C (charmap=ANSI_X3.4-1968)

Versions of packages cl-typesetting depends on:
ii  cl-pdf                        117-1      Common Lisp package to create PDF 
ii  common-lisp-controller        6.1        This is a Common Lisp source and c

cl-typesetting recommends no packages.

-- no debconf information
-------------- next part --------------
--- /usr/share/common-lisp/source/cl-typesetting/graph.lisp.old	2005-11-02 12:53:36.000000000 -0600
+++ /usr/share/common-lisp/source/cl-typesetting/graph.lisp	2006-06-20 23:44:03.000000000 -0500
@@ -176,7 +176,8 @@
 	   (with-open-file (s dot-file :direction :output :if-exists :supersede)
 	     (gen-graph-dot-data graph s))
 #+lispworks (sys:call-system (format nil "~a~{ ~s~} ~s -o ~s" *dot-command* *dot-command-args* dot-file result-file) :wait t)
-#+(or cmu sbcl) (ext:run-program *dot-command* `(,@*dot-command-args* ,dot-file "-o" ,result-file) :wait t)
+	   #+cmu (ext:run-program *dot-command* `(,@*dot-command-args* ,dot-file "-o" ,result-file) :wait t)
+	   #+sbcl (sb-ext:run-program *dot-command* `(,@*dot-command-args* ,dot-file "-o" ,result-file) :wait t)
 	   (with-open-file (s result-file :direction :input)
 	     (iter (for line = (read-line s nil))
 		   (while line)