OVH Cloud OVH Cloud

test lisp

1 réponse
Avatar
Xavier Maillard
;;; lisp code
(SETF *LOAD-VERBOSE* NIL)
(LOAD (MERGE-PATHNAMES
(MAKE-PATHNAME :NAME ".common" :TYPE "lisp") (USER-HOMEDIR-PATHNAME)))
(SETF CUSTOM:*LOAD-PATHS* '(#P""))

(SETF CUSTOM:*EDITOR* "emacsclient")

;;; end of lisp code

--
Xavier Maillard

main(){printf(&unix["\021%six\012\0"],(unix)["have"]+"fun"-0x60);}

1 réponse

Avatar
Xavier Maillard
On 9 Jun 2005, Xavier Maillard wrote:

;;; lisp code
(SETF *LOAD-VERBOSE* NIL) (LOAD (MERGE-PATHNAMES
(MAKE-PATHNAME :NAME ".common" :TYPE "lisp")
(USER-HOMEDIR-PATHNAME))) (SETF CUSTOM:*LOAD-PATHS* '(#P""))

(SETF CUSTOM:*EDITOR* "emacsclient")

;;; end of lisp code


;;;
(SETF CUSTOM:*LOAD-PATHS* '(#P""))

(SETF CUSTOM:*EDITOR* "emacsclient")
;;;

(SETF CUSTOM:*LOAD-PATHS* '(#P""))

(SETF CUSTOM:*EDITOR* "emacsclient")

Bon ben voila
--
In Gruuik we trust