Lisp is fucking shit!

I'm trying to invoke shell command (trivial-shell:shell-command "pwd") and it tries to create temporary file inside current directory, which happens to be "/", with a shitty code like
(loop thereis (open (format nil "TEMP-~D" (random 100000))
               :direction :probe :if-exists nil
               :if-does-not-exist :create)

Of course that results into "error opening #P"/TEMP-12698": Permission denied"

That is why we cant have nice things. Everything will be wrong and fail. I hate you all!

Do you believe me?!! Lisp has no fucking standard way to create a tmp file!

>>1
(random 100000)
And what if one happens to open more than 100000 files?

>>1
use osicat or write your own

http://common-lisp.net/project/osicat/manual/html_node/Files-and-Symbolic-Links.html#Files-and-Symbolic-Links

>>4
I cant use osicat, cause I'm not a maintainer of trivial-shell. And a maintainer of trivial-shell cant use osicat cause he is too retarded.

Oh my, you have such impeccable deductive skills.

You're doing it so wrong. Read the relevant documentation. Besides, do you even need a temporary file? You can make in-memory streams quite easily and have those streams backed by files if you want.

>>7
You're doing it so wrong
Please, kindly fuck off. I'm not the author of http://common-lisp.net/project/trivial-shell/

>>8
So what? He's still ``doing it wrong''.

>>9
choke on a cock


(defcfun "malloc" :pointer (count :int))
(defcfun "tmpnam" :string (buffer :pointer))
(tmpnam (malloc 1000))

That is how one does that. There is no need to be clever retard.


(defun shell (command)
  (let ((tmp (generate-temporary-name)))
    (libc::system (format nil "bash -c '~a' > '~a'" command tmp))
    (let* ((r (with-fopen (file tmp "r")
                (let ((l (libc::fsize file)))
                  (with-malloc (buf l)
                    (libc::fread buf 1 l file)
                    (cffi::foreign-string-to-lisp buf))))))
      (libc::unlink tmp)
      r)))

have you considered javascript?

FILE *MakeTempFile() {
 char strBuffer[6];
 char strBuffer2[256+1];
 system("echo %random% > temp.tmp");
 FILE *fpAnus = fopen("temp.tmp", "r");
 fgets(strBuffer, 6, fpAnus);
 fclose(fpAnus);
 remove("temp.tmp");
 sprintf(strBuffer2, "C:\temp\TMP%s.FIL", strBuffer);
 FILE *fpTempfile = fopen(strBuffer2, "w+");
 return(fpTempfile);
}