(SETF CHAR) and move string related code to string.lisp

[jscl.git] / src / utils.lisp

diff --git a/src/utils.lisp b/src/utils.lisp
index 73fc551..f6d8120 100644 (file)
--- a/src/utils.lisp
+++ b/src/utils.lisp
@@ -16,7 +16,8 @@
 ;; You should have received a copy of the GNU General Public License
 ;; along with JSCL.  If not, see <http://www.gnu.org/licenses/>.
 
-(defvar *newline* (string (code-char 10)))
+(defvar *newline* "
+")
 
 (defmacro concatf (variable &body form)
   `(setq ,variable (concat ,variable (progn ,@form))))