Re: How to solve: module 'syscalls' requires package OS

> On 23 Mar 2017, at 16:29, Jean Louis <[email protected]> wrote:
> 
> Hello,
> 
> When I try to make memory image, with that line, then I get problem:
> 
> module 'syscalls' requires package OS
> 
> How do I solve that?
> 
> (defparameter memdir "/run/shm/")
> (defparameter tmp-file "rcd-wrs-XXXXXX")
> (defparameter tmp-org (format nil "~a~a.org" memdir tmp-file))
> (defparameter tmp-md (format nil "~a~a.md" memdir tmp-file))
> (require "syscalls")
> 
> ;; (saveinitmem "org2markdown" :quiet nil :init-function 'main :verbose t :norc t :documentation "Converts Org standard input into markdown" :executable t)
> (defun main nil
>  (let ((input (with-open-stream (str *standard-input*)
>                 (loop :for line = (read-line *standard-input* nil nil)
>                    :while line
>                    :do (format t "~A~%" line)))))
>    (with-open-file (stream tmp-org :if-exists :supersede :if-does-not-exist :create :external-format "utf-8")
>      (format stream input))
>    (shell (format nil "emacs -Q -l ~~/.emacs.d/elpa/org-20170210/org-autoloads.el \"~a\" --batch -f org-mode -f org-md-export-to-markdown --kill" tmp-org))
>    (format t (with-open-file (stream tmp-md :direction :input)
>                (loop :for line = (read-line *standard-input* nil nil)
>                    :while line
>                    :do (format t "~A~%" line))))
>  (exit)))
> 
> ;; (main)


“OS” is a nickname of the “POSIX” package that is created by the syscalls module, so if you have required syscalls, it must exist, and you cannot get this error.  

Works for me, with the following change:

[pjb@despina :0.0]$ cat o.lisp
(defparameter memdir "/run/shm/")
(defparameter tmp-file "rcd-wrs-XXXXXX")
(defparameter tmp-org (format nil "~a~a.org" memdir tmp-file))
(defparameter tmp-md (format nil "~a~a.md" memdir tmp-file))
(require "syscalls")


(defun main nil
  (let ((input (with-open-stream (str *standard-input*)
                 (loop :for line = (read-line *standard-input* nil nil)
                       :while line
                       :do (format t "~A~%" line)))))
    (with-open-file (stream tmp-org :if-exists :supersede :if-does-not-exist :create :external-format "utf-8")
      (format stream input))
    (shell (format nil "emacs -Q -l ~~/.emacs.d/elpa/org-20170210/org-autoloads.el \"~a\" --batch -f org-mode -f org-md-export-to-markdown --kill" tmp-org))
    (format t (with-open-file (stream tmp-md :direction :input)
                (loop :for line = (read-line *standard-input* nil nil)
                      :while line
                      :do (format t "~A~%" line))))
    (exit)))

(saveinitmem "org2markdown" :quiet nil :init-function 'main :verbose t :norc t :documentation "Converts Org standard input into markdown" :executable t)

/tmp
[pjb@despina :0.0]$ clisp o.lisp

Bytes permanently allocated:            172,224
Bytes currently in use:               3,311,400
Bytes available until next GC:          826,440

/tmp
[pjb@despina :0.0]$ ls -l org2markdown
-rwxr-xr-x 1 pjb wheel 6215484 Mar 23 20:58 org2markdown*



-- 
__Pascal J. Bourguignon__



------------------------------------------------------------------------------
Check out the vibrant tech community on one of the world's most
engaging tech sites, Slashdot.org! http://sdm.link/slashdot
_______________________________________________
clisp-list mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/clisp-list