Code: Select all
(defun get-data()
(with-open-file (stream "deseases.dat" )
(setf (glob (read stream)))))
Someone can give me a tipe of how this works?
And sorry for bad english. Thank you !
Code: Select all
(defun get-data()
(with-open-file (stream "deseases.dat" )
(setf (glob (read stream)))))
Code: Select all
(defvar glob nil)
Code: Select all
? (defvar glob nil)
GLOB
? (defun get-data()
(with-open-file (stream "deseases.dat" )
(setf (glob (read stream)))))
> Error: Odd number of args to SETF : ((GLOB (READ STREAM))).
> While executing: (:INTERNAL CCL::NX1-COMPILE-LAMBDA), in process listener(1).
> Type :GO to continue, :POP to abort, :R for a list of available restarts.
> If continued: continue compilation ignoring this form
> Type :? for other options.
Code: Select all
(defun save-data()
(with-open-file (stream "deseases.dat" :direction :output)
(format stream "~S" glob)))