Changeset 11003


Ignore:
Timestamp:
03/06/06 20:33:00 (15 years ago)
Author:
piso
Message:

READ-FROM-STRING.1, READ-FROM-STRING.2

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/tests/misc-tests.lisp

    r10578 r11003  
    22;;;
    33;;; Copyright (C) 2005 Peter Graves
    4 ;;; $Id: misc-tests.lisp,v 1.4 2005-12-01 14:52:22 piso Exp $
     4;;; $Id: misc-tests.lisp,v 1.5 2006-03-06 20:33:00 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    9090  t)
    9191
     92(deftest read-from-string.1
     93  (read-from-string "(1 2 #-abcl #k(3 4))")
     94  (1 2)
     95  20)
     96
     97(deftest read-from-string.2
     98  (read-from-string "(1 2 #+nil #k(3 4))")
     99  (1 2)
     100  19)
     101
    92102(do-tests)
Note: See TracChangeset for help on using the changeset viewer.