Menu

Show posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.

Show posts Menu

Topics - kesha

Pages1
#1
newLISP in the real world / bug?
October 06, 2016, 11:15:10 AM
Code Select

newLISP v.10.7.1 64-bit on Linux IPv4/6 UTF-8 libffi, options: newlisp -h

> (= 'A 'A)
true
> (= 'A 'B)
nil                                               <--------------- !!!
> (define (Test A B C))
(lambda (A B C))
> (++ (find 'D (first Test)))
1
> (= 'A 'A)
true
> (= 'A 'B)
1                                                <---------------- ???
#2
newLISP newS / segmentation fault
April 25, 2016, 03:38:10 AM
OS: GNU/Linux Gentoo x86_64 and Gentoo x86

gcc: 4.9.3
Code Select

newLISP v.10.7.0 64-bit on Linux IPv4/6 UTF-8 libffi, options: newlisp -h
> (unpack "c" 1)
segmentation fault

Code Select

newLISP v.10.7.1 32-bit on Linux IPv4/6 UTF-8, options: newlisp -h
> (unpack "c" 1)
segmentation fault

Oops...
#3
newLISP in the real world / case
December 04, 2012, 01:17:58 PM
Hi All,

how can perform multiple checks.
Code Select

(define (test-case KEY)
  (case KEY
    (0 (begin (println "KEY => " KEY)(test-case (++ KEY))))
    (1 (begin (println "KEY => " KEY)(test-case (++ KEY))))
    (2 (begin (println "KEY => " KEY)(test-case (++ KEY))))
    (3 (begin (println "KEY => " KEY)(test-case (++ KEY))))
    (4 (begin (println "KEY => " KEY)(test-case (++ KEY))))
    (5 (begin (println "KEY => " KEY)(test-case (++ KEY))))
    (6 (begin (println "KEY => " KEY)(test-case (++ KEY))))
    (7 (begin (println "KEY => " KEY)(test-case (++ KEY))))
    (8 (begin (println "KEY => " KEY)(test-case (++ KEY))))
    (9 (begin (println "KEY => " KEY)(test-case (++ KEY))))
    (true (println "END CASE..."))))
Pages1