cametan001

CL-USER> #" " と \. を含みます。"#
" \" と \\. を含みます。"
CL-USER> 

cametan001

CL-USER> (segment-reader t #\/ 3)
あいう/えおか/きくけ/
("あいう" "えおか" "きくけ")
CL-USER> 

cametan001

cd ~/
2 compiler notes:

lol-production-code.lisp:265:1:
  error: 
    (during macroexpansion of (DEFMACRO! DLAMBDA ...))
    The function O!-SYMBOL-P is undefined.

lol-production-code.lisp:357:17:
  read-error: 

cametan001

CL-USER> (asdf:operate 'asdf:load-op :hello)
; loading system definition from /home/cametan/hello.asd into
; #<PACKAGE "ASDF0">
; registering #<SYSTEM HELLO {AB3F071}> as HELLO
NIL
CL-USER> 

cametan001

CL-USER> *h*
The variable *H* is unbound.
   [Condition of type UNBOUND-VARIABLE]
; Evaluation aborted.
CL-USER> 

cametan001

(in-package #:hello)

(defparameter *a* "hello, ")

cametan001

CL-USER> (print-name-of-function "Fuck off!!!")
FUCK-OFF
CL-USER> (fuck-off)
Fuck off!!!
"Fuck off!!!"
CL-USER> 

cametan001

;; hello-system 「自体で」 :p-n-f パッケージが要り用になるわけではない事に注意
(defpackage :hello-system (:use :asdf :cl))
(in-package :hello-system)

(defsystem hello
  :name "hello"
  :author ""
  :version ""
  :maintainer ""
  :licence ""

cametan001

; Arc Compiler.

(module ac mzscheme

(provide (all-defined))
; uncomment the following require for mzscheme-4.x
; much of Arc will work, but not mutable pairs.
; (require rnrs/mutable-pairs-6)
(require (lib "port.ss"))
(require (lib "process.ss"))

cametan001

#!/usr/bin/env bash

mzscheme slisp.ss