<html>
<head>
<meta content="text/html; charset=UTF-8" http-equiv="Content-Type">
</head>
<body bgcolor="#FFFFFF" text="#003333">
<br>
<div class="moz-cite-prefix">On 10/30/2013 06:13 PM, Dave Cooper
wrote:<br>
</div>
<blockquote
cite="mid:CAHBe5XhcBcMB5e8oL89M4rcuYoj49N6Bs0=wwXjZwC0xNbMvtQ@mail.gmail.com"
type="cite">
<meta http-equiv="Context-Type" content="text/html; charset=UTF-8">
<div dir="ltr"><br>
<div>The quicklisp/local-projects/ directory is just one
convenient place to put stuff, nothing dictates that you have
to put it there. </div>
<div><br>
</div>
<div>You can also put your own .asd systems elsewhere and set up
a call to:</div>
<div><br>
</div>
<div> (pushnew ".../my-projects/" ql:*local-project-directories*
:test #'string-equal)</div>
<div> (ql:register-local-projects)</div>
<div><br>
</div>
<div>Yes, you have to evaluate these two lines after making a
new .asd file. But if you put all your projects under
".../my-projects/" then nothing else has to change so it can
be part of a standard thingie you just call after setting up a
new experimental project. </div>
<div><br>
</div>
<br>
</div>
</blockquote>
<br>
Thanks, Dave. I've been reading Zach's documentation and see that
now. Misconception on my part. <br>
<br>
I just rebuilt a project following suggestions by Zach and yourself.
Gave it a new name. It loads via ql:quickload without complaint. And
it runs as before. Here's the way I am invoking the project:<br>
<tt><br>
</tt><tt>(pushnew "/home/jcunningham/quest/jkc/ftisv44/"
ql:*local-project-directories* :test #'equalp)</tt><tt><br>
</tt><tt>(ql:register-local-projects)</tt><tt><br>
</tt><tt>(ql:quickload "ftisv44")</tt><br>
<br>
It loads just fine. The project asd file:<br>
<br>
<tt>;;;; ftisv44.asd</tt><tt><br>
</tt><tt><br>
</tt><tt>(asdf:defsystem #:ftisv44</tt><tt><br>
</tt><tt> :serial t</tt><tt><br>
</tt><tt> :description "Integer model for vhdl verification and
testing"</tt><tt><br>
</tt><tt> :author "J.K.Cunningham"</tt><tt><br>
</tt><tt> :depends-on (#:cl-ppcre</tt><tt><br>
</tt><tt> #:cl-fad</tt><tt><br>
</tt><tt> #:cl-gd-ext</tt><tt><br>
</tt><tt> #:cl-who</tt><tt><br>
</tt><tt> #:html5</tt><tt><br>
</tt><tt> #:json-pt</tt><tt><br>
</tt><tt> #:graham</tt><tt><br>
</tt><tt> #:cl-extra)</tt><tt><br>
</tt><tt> :components ((:file "package")</tt><tt><br>
</tt><tt> (:file "common")</tt><tt><br>
</tt><tt> (:file "vectors")</tt><tt><br>
</tt><tt> (:file "waveforms")</tt><tt><br>
</tt><tt> (:file "interface")</tt><tt><br>
</tt><tt> (:file "model")</tt><tt><br>
</tt><tt> (:file "post-processing")</tt><tt><br>
</tt><tt> (:file "octave")</tt><tt><br>
</tt><tt> (:file "vhdl")</tt><tt><br>
</tt><tt> (:file "verify")</tt><tt><br>
</tt><tt> (:file "make-html-pages")))</tt><br>
<br>
The package file:<br>
<br>
<tt>(defpackage #:ftisv44</tt><tt><br>
</tt><tt> (:use :cl :cl-extra :cl-ppcre :cl-fad :graham
:cl-gd-ext :json-pt :html5 :cl-who)</tt><tt><br>
</tt><tt> (:shadowing-import-from :cl-who :str :htm :fmt)</tt><tt><br>
</tt><tt> (:export</tt><tt><br>
</tt><tt> ;; from common.lisp</tt><tt><br>
</tt><tt> #:delete-files</tt><tt><br>
</tt><tt> #:clear-errors</tt><tt><br>
</tt><tt> #:print-errors</tt><tt><br>
</tt><tt> #:report-error</tt><tt><br>
</tt><tt> #:make-vec</tt><tt><br>
</tt><tt> #:subvector</tt><tt><br>
</tt><tt> #:inner-product</tt><tt><br>
</tt><tt> #:complexp*</tt><tt><br>
</tt><tt> #:inv*</tt><tt><br>
</tt><tt> #:realpart*</tt><tt><br>
</tt><tt> #:imagpart*</tt><tt><br>
</tt><tt> #:conjugate*</tt><tt><br>
</tt><tt> #:abs*</tt><tt><br>
</tt><tt> #:cos*</tt><tt><br>
</tt><tt> #:sin**</tt><tt><br>
</tt><tt> #:cexp*</tt><tt><br>
</tt><tt> #:truncate*</tt><tt><br>
</tt><tt> #:floor*</tt><tt><br>
</tt><tt> #:round*</tt><tt><br>
</tt><tt> #:magsqr</tt><tt><br>
</tt><tt> #:scale</tt><tt><br>
</tt><tt> #:complex*</tt><tt><br>
</tt><tt> #:add</tt><tt><br>
</tt><tt> #:sub</tt><tt><br>
</tt><tt> #:mul</tt><tt><br>
</tt><tt> #:div</tt><tt><br>
</tt><tt> #:sum</tt><tt><br>
</tt><tt> #:sumsqr</tt><tt><br>
</tt><tt> #:mean</tt><tt><br>
</tt><tt> #:var*</tt><tt><br>
</tt><tt> #:max*</tt><tt><br>
</tt><tt> #:maxabs</tt><tt><br>
</tt><tt> #:enough-bits</tt><tt><br>
</tt><tt> #:clip</tt><tt><br>
</tt><tt> #:symclip</tt><tt><br>
</tt><tt> #:to-fixeddpoint</tt><tt><br>
</tt><tt> #:diff</tt><tt><br>
</tt><tt> #:set-vectors-enable</tt><tt><br>
</tt><tt> #:add-to-vfiles</tt><tt><br>
</tt><tt> #:get-vfiles</tt><tt><br>
</tt><tt> #:clear-vfiles</tt><tt><br>
</tt><tt> #:write-vector</tt><tt><br>
</tt><tt> #:read-vec</tt><tt><br>
</tt><tt> #:read-dat</tt><tt><br>
</tt><tt> #:write-integers</tt><tt><br>
</tt><tt> #:make-zip</tt><tt><br>
</tt><tt> #:make-tarball</tt><tt><br>
</tt><tt> #:gen-vec</tt><tt><br>
</tt><tt> #:compute-stats </tt><tt><br>
</tt><tt> #:blank </tt><tt><br>
</tt><tt> #:centersym</tt><tt><br>
</tt><tt> #:autocor</tt><tt><br>
</tt><tt> #:fft</tt><tt><br>
</tt><tt> #:fftd</tt><tt><br>
</tt><tt> ;; </tt><tt><br>
</tt><tt> #:clear-accums</tt><tt><br>
</tt><tt> #:get-accums</tt><tt><br>
</tt><tt> #:accumulate-unique</tt><tt><br>
</tt><tt> #:print-accums</tt><tt><br>
</tt><tt> ;;</tt><tt><br>
</tt><tt> #:clear-dranges</tt><tt><br>
</tt><tt> #:get-dranges</tt><tt><br>
</tt><tt> #:bitwidth</tt><tt><br>
</tt><tt> #:accumulate-drange</tt><tt><br>
</tt><tt> #:print-dranges</tt><tt><br>
</tt><tt> ;; cordic</tt><tt><br>
</tt><tt> #:cordic-sqrt</tt><tt><br>
</tt><tt> #:cordic-log</tt><tt><br>
</tt><tt> #:cordic-log-fp</tt><tt><br>
</tt><tt> ;;</tt><tt><br>
</tt><tt> #:fir-filter</tt><tt><br>
</tt><tt> #:find-peaks</tt><tt><br>
</tt><tt> #:interpolate</tt><tt><br>
</tt><tt> ;;</tt><tt><br>
</tt><tt> #:set-plots-enable</tt><tt><br>
</tt><tt> #:error_plots-enabled-p</tt><tt><br>
</tt><tt> #:data_plots-enabled-p</tt><tt><br>
</tt><tt> #:gd-plot</tt><tt><br>
</tt><tt> #:gd-plot-2</tt><tt><br>
</tt><tt><br>
</tt><tt> ;; from vectors.lisp</tt><tt><br>
</tt><tt> #:set-verify</tt><tt><br>
</tt><tt> #:verify-p</tt><tt><br>
</tt><tt> #:get-verify-src</tt><tt><br>
</tt><tt> #:get-verify-dir</tt><tt><br>
</tt><tt> ;;</tt><tt><br>
</tt><tt> #:with-vector</tt><tt><br>
</tt><tt> #:has-vector</tt><tt><br>
</tt><tt> #:svectors-remaining</tt><tt><br>
</tt><tt> #:next-svector-length</tt><tt><br>
</tt><tt> #:clear-vector-table</tt><tt><br>
</tt><tt> #:write-vector-status</tt><tt><br>
</tt><tt> #:add-vector</tt><tt><br>
</tt><tt> #:next-vector-length</tt><tt><br>
</tt><tt> #:vectors-remaining</tt><tt><br>
</tt><tt> #:lookat-vector</tt><tt><br>
</tt><tt> #:read-vector</tt><tt><br>
</tt><tt> #:subvec</tt><tt><br>
</tt><tt> #:load-vectors</tt><tt><br>
</tt><tt> #:with-test-vector</tt><tt><br>
</tt><tt> #:while-test-vector</tt><tt><br>
</tt><tt> ;; </tt><tt><br>
</tt><tt> #:translate-fifo</tt><tt><br>
</tt><tt> #:print-fifo-errorbits</tt><tt><br>
</tt><tt> ;;</tt><tt><br>
</tt><tt> #:compare-and-inject</tt><tt><br>
</tt><tt> ;;</tt><tt><br>
</tt><tt> #:clear-test-results</tt><tt><br>
</tt><tt> #:print-test-results</tt><tt><br>
</tt><tt> #:plot-vector</tt><tt><br>
</tt><tt> #:plot-overlay-vectors</tt><tt><br>
</tt><tt> #:compare-vectors</tt><tt><br>
</tt><tt> #:compare-values</tt><tt><br>
</tt><tt> #:make-unsigned</tt><tt><br>
</tt><tt> #:compare-peaks</tt><tt><br>
</tt><tt> </tt><tt><br>
</tt><tt> ;; from waveforms.lisp</tt><tt><br>
</tt><tt> #:*waveforms-dir*</tt><tt><br>
</tt><tt> #:waveform-setname</tt><tt><br>
</tt><tt> #:waveform-file</tt><tt><br>
</tt><tt> #:waveform-iw</tt><tt><br>
</tt><tt> #:waveform-hb</tt><tt><br>
</tt><tt> #:waveform-awall</tt><tt><br>
</tt><tt> #:waveform-state</tt><tt><br>
</tt><tt> #:waveform-notes</tt><tt><br>
</tt><tt> #:make-waveform</tt><tt><br>
</tt><tt> #:waveform-vdir</tt><tt><br>
</tt><tt> #:get-waveforms</tt><tt><br>
</tt><tt> #:with-waveform-sets</tt><tt><br>
</tt><tt> #:generate-ilaunch2</tt><tt><br>
</tt><tt><br>
</tt><tt> ;; from octave.lisp</tt><tt><br>
</tt><tt> #:max-wall</tt><tt><br>
</tt><tt> #:octave-model</tt><tt><br>
</tt><tt><br>
</tt><tt> ;; from verify.lisp</tt><tt><br>
</tt><tt> #:gen-vhdl-vectors</tt><tt><br>
</tt><tt> #:gen-1ping-per-setname</tt><tt><br>
</tt><tt> #:gen-vhdl-mping-vectors</tt><tt><br>
</tt><tt> #:gen-mping-per-setname</tt><tt><br>
</tt><tt> #:run-verification</tt><tt><br>
</tt><tt> #:compare-model-octave</tt><tt><br>
</tt><tt> #:compare-model-octave-all</tt><tt><br>
</tt><tt> #:unpack-new-tarball</tt><tt><br>
</tt><tt> #:process-vhdl-tarball</tt><tt><br>
</tt><tt> #:process-all-vhdl-tarballs</tt><tt><br>
</tt><tt><br>
</tt><tt> ;; from make-html-pages</tt><tt><br>
</tt><tt> #:make-html-data-site</tt><tt><br>
</tt><tt> ))</tt><br>
<br>
<br>
Then at the top of a (non-project source file located in a data
directory)<br>
<br>
<tt>(in-package :ftisv44)</tt><tt><br>
</tt><br>
After all that, when I put the point on, say, the function
ftisv44:run-verification and press Alt-. I still get <br>
<br>
<b> Error: end of file on #<SB-IMPL::STRING-INPUT-STREAM
{1005A81C63}></b><b><br>
</b><br>
<br>
Regards,<br>
Jeff<br>
<br>
</body>
</html>