2023-06-29 17:19:12 +02:00
|
|
|
(defpackage cl-sbt
|
2023-07-01 16:30:10 +02:00
|
|
|
(:use :cl)
|
2023-07-14 16:20:55 +02:00
|
|
|
(:export
|
2023-07-16 11:36:30 +02:00
|
|
|
:write-string-to-file))
|
2023-07-01 16:30:10 +02:00
|
|
|
|
2023-06-29 17:19:12 +02:00
|
|
|
(in-package :cl-sbt)
|
2023-07-03 14:43:58 +02:00
|
|
|
|
2023-07-16 11:36:30 +02:00
|
|
|
(defun write-string-to-file (filename string)
|
|
|
|
|
(with-open-file (stream filename :direction :output :if-exists :supersede)
|
|
|
|
|
(write-string string stream)))
|
