diff options
| author | Juan Manuel Tomás <jtomas1815@gmail.com> | 2023-03-12 14:32:50 -0300 |
|---|---|---|
| committer | Juan Manuel Tomás <jtomas1815@gmail.com> | 2023-03-12 14:32:50 -0300 |
| commit | 3d6e80b447ef96cdac3aada1f2ca08073648294f (patch) | |
| tree | b41f6a6a9d9d5747128750c56ce4db4597be7ee0 /utils.lisp | |
| parent | cf7dc2892c1f3a474b7c49f35cbab08bfa08ef71 (diff) | |
| download | utils-3d6e80b447ef96cdac3aada1f2ca08073648294f.tar.gz utils-3d6e80b447ef96cdac3aada1f2ca08073648294f.zip | |
Tidy up different stuff
Diffstat (limited to 'utils.lisp')
| -rw-r--r-- | utils.lisp | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/utils.lisp b/utils.lisp deleted file mode 100644 index d0f61d5..0000000 --- a/utils.lisp +++ /dev/null @@ -1,11 +0,0 @@ -(in-package #:utils) - -(defmacro with-package (pkg-sym &body body) - (let ((pkg-name (symbol-name pkg-sym))) - (unless (find-package pkg-name) - (make-package pkg-name)) - (let ((body-as-string (format nil "(cl:progn ~{~s~&~})" body)) - (body-as-form)) - (let ((*package* (find-package pkg-name))) - (setq body-as-form (read-from-string body-as-string))) - body-as-form))) |