10 lines
251 B
Common Lisp
10 lines
251 B
Common Lisp
(defpackage cl-sbt
|
|
(:use :cl)
|
|
(:export
|
|
:write-string-to-file))
|
|
|
|
(in-package :cl-sbt)
|
|
|
|
(defun write-string-to-file (filename string)
|
|
(with-open-file (stream filename :direction :output :if-exists :supersede)
|
|
(write-string string stream)))
|