On 10/30/2013 06:13 PM, Dave Cooper wrote:
The quicklisp/local-projects/ directory is just one convenient place to put stuff, nothing dictates that you have to put it there.
You can also put your own .asd systems elsewhere and set up a call to:
(pushnew ".../my-projects/" ql:*local-project-directories* :test #'string-equal) (ql:register-local-projects)
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.
Thanks, Dave. I've been reading Zach's documentation and see that now. Misconception on my part.
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:
(pushnew "/home/jcunningham/quest/jkc/ftisv44/" ql:*local-project-directories* :test #'equalp) (ql:register-local-projects) (ql:quickload "ftisv44")
It loads just fine. The project asd file:
;;;; ftisv44.asd
(asdf:defsystem #:ftisv44 :serial t :description "Integer model for vhdl verification and testing" :author "J.K.Cunningham" :depends-on (#:cl-ppcre #:cl-fad #:cl-gd-ext #:cl-who #:html5 #:json-pt #:graham #:cl-extra) :components ((:file "package") (:file "common") (:file "vectors") (:file "waveforms") (:file "interface") (:file "model") (:file "post-processing") (:file "octave") (:file "vhdl") (:file "verify") (:file "make-html-pages")))
The package file:
(defpackage #:ftisv44 (:use :cl :cl-extra :cl-ppcre :cl-fad :graham :cl-gd-ext :json-pt :html5 :cl-who) (:shadowing-import-from :cl-who :str :htm :fmt) (:export ;; from common.lisp #:delete-files #:clear-errors #:print-errors #:report-error #:make-vec #:subvector #:inner-product #:complexp* #:inv* #:realpart* #:imagpart* #:conjugate* #:abs* #:cos* #:sin** #:cexp* #:truncate* #:floor* #:round* #:magsqr #:scale #:complex* #:add #:sub #:mul #:div #:sum #:sumsqr #:mean #:var* #:max* #:maxabs #:enough-bits #:clip #:symclip #:to-fixeddpoint #:diff #:set-vectors-enable #:add-to-vfiles #:get-vfiles #:clear-vfiles #:write-vector #:read-vec #:read-dat #:write-integers #:make-zip #:make-tarball #:gen-vec #:compute-stats #:blank #:centersym #:autocor #:fft #:fftd ;; #:clear-accums #:get-accums #:accumulate-unique #:print-accums ;; #:clear-dranges #:get-dranges #:bitwidth #:accumulate-drange #:print-dranges ;; cordic #:cordic-sqrt #:cordic-log #:cordic-log-fp ;; #:fir-filter #:find-peaks #:interpolate ;; #:set-plots-enable #:error_plots-enabled-p #:data_plots-enabled-p #:gd-plot #:gd-plot-2
;; from vectors.lisp #:set-verify #:verify-p #:get-verify-src #:get-verify-dir ;; #:with-vector #:has-vector #:svectors-remaining #:next-svector-length #:clear-vector-table #:write-vector-status #:add-vector #:next-vector-length #:vectors-remaining #:lookat-vector #:read-vector #:subvec #:load-vectors #:with-test-vector #:while-test-vector ;; #:translate-fifo #:print-fifo-errorbits ;; #:compare-and-inject ;; #:clear-test-results #:print-test-results #:plot-vector #:plot-overlay-vectors #:compare-vectors #:compare-values #:make-unsigned #:compare-peaks
;; from waveforms.lisp #:*waveforms-dir* #:waveform-setname #:waveform-file #:waveform-iw #:waveform-hb #:waveform-awall #:waveform-state #:waveform-notes #:make-waveform #:waveform-vdir #:get-waveforms #:with-waveform-sets #:generate-ilaunch2
;; from octave.lisp #:max-wall #:octave-model
;; from verify.lisp #:gen-vhdl-vectors #:gen-1ping-per-setname #:gen-vhdl-mping-vectors #:gen-mping-per-setname #:run-verification #:compare-model-octave #:compare-model-octave-all #:unpack-new-tarball #:process-vhdl-tarball #:process-all-vhdl-tarballs
;; from make-html-pages #:make-html-data-site ))
Then at the top of a (non-project source file located in a data directory)
(in-package :ftisv44)
After all that, when I put the point on, say, the function ftisv44:run-verification and press Alt-. I still get
* Error: end of file on #<SB-IMPL::STRING-INPUT-STREAM {1005A81C63}>** *
Regards, Jeff