Nasium Lse issueshttps://framagit.org/nasium-lse/nasium-lse/-/issues2017-10-01T17:45:32Zhttps://framagit.org/nasium-lse/nasium-lse/-/issues/26tableaux à deux dimensions2017-10-01T17:45:32ZPascal J. Bourguignontableaux à deux dimensionsLa déclaration des tableaux à deux dimensions signale une erreur:
```
5003 NCONS_1000;ICAR_1;ICDR_2;LIBERER TCONS;TABLEAU TCONS[NCONS,2];FCONS_0;YCONS_1
ERREUR : (:ADECL #<TOK-IDENTIFICATEUR 5002:52: IDENTIFICATEUR "TCONS"
#x30200287A0...La déclaration des tableaux à deux dimensions signale une erreur:
```
5003 NCONS_1000;ICAR_1;ICDR_2;LIBERER TCONS;TABLEAU TCONS[NCONS,2];FCONS_0;YCONS_1
ERREUR : (:ADECL #<TOK-IDENTIFICATEUR 5002:52: IDENTIFICATEUR "TCONS"
#x30200287A02D> (:VREF #<TOK-IDENTIFICATEUR 5002:58: IDENTIFICATEUR "NCONS"
#x302002879ECD>) . #<TOK-NUMERO 5002:64: NUMERO "2" #x302002879C1D>) can't be
destructured against the lambda list (COM.INFORMATIMAGO.LSE::ADECL
COM.INFORMATIMAGO.LSE::IDENT COM.INFORMATIMAGO.LSE::INDEX.1 &OPTIONAL
COM.INFORMATIMAGO.LSE::INDEX.2), because it is not a proper list.
```Pascal J. BourguignonPascal J. Bourguignonhttps://framagit.org/nasium-lse/nasium-lse/-/issues/2500027 pg55 parametre fonctions2018-04-03T03:36:45ZPascal J. Bourguignon00027 pg55 parametre fonctions*Created by: Pascal J. Bourguignon*
```
ERREUR EN LIGNE 201 : /Users/pjb/src/pjb/lse-progr/inrdp/pg55.lse:201:24:
201 PROCEDURE &COURB(&F,N,X,Y,P) LOCAL P,N,YMI,YMA,I
```*Created by: Pascal J. Bourguignon*
```
ERREUR EN LIGNE 201 : /Users/pjb/src/pjb/lse-progr/inrdp/pg55.lse:201:24:
201 PROCEDURE &COURB(&F,N,X,Y,P) LOCAL P,N,YMI,YMA,I
```https://framagit.org/nasium-lse/nasium-lse/-/issues/2400012 AP 1: Parsing errors in commands fail catastrophically.2018-04-03T03:36:54ZPascal J. Bourguignon00012 AP 1: Parsing errors in commands fail catastrophically.*Created by: Pascal J. Bourguignon*
```
APPELER 1
ERROR:
0:1: CARACT?RE INVALIDE '1' (49)
--------------------------------------------------------------------------------
(BACKTRACE-AS-LIST :CONTEXT NIL :PROCESS NIL :ORIGIN NIL ...*Created by: Pascal J. Bourguignon*
```
APPELER 1
ERROR:
0:1: CARACT?RE INVALIDE '1' (49)
--------------------------------------------------------------------------------
(BACKTRACE-AS-LIST :CONTEXT NIL :PROCESS NIL :ORIGIN NIL :COUNT 1152921504606846975 :START-FRAME-NUMBER 0 :PRINT-LEVEL NIL :PRINT-LENGTH 5 :SHOW-INTERNAL-FRAMES NIL)
(FUNCALL (:INTERNAL (COM.INFORMATIMAGO.LSE::COMMAND-CALL (COM.INFORMATIMAGO.LSE::COMMAND))) 0:1: Invalid character #\1 at position: 1
(COM.INFORMATIMAGO.LSE::UN-PROGRAMME)
UN-PROGRAMME --> (COM.INFORMATIMAGO.RDP:SEQ (COM.INFORMATIMAGO.LSE::IDENT) ((LIST COM.INFORMATIMAGO.LSE::$1)))
)
(SIGNAL 0:1: Invalid character #\1 at position: 1
(COM.INFORMATIMAGO.LSE::UN-PROGRAMME)
UN-PROGRAMME --> (COM.INFORMATIMAGO.RDP:SEQ (COM.INFORMATIMAGO.LSE::IDENT) ((LIST COM.INFORMATIMAGO.LSE::$1)))
)
(%ERROR 0:1: Invalid character #\1 at position: 1
(COM.INFORMATIMAGO.LSE::UN-PROGRAMME)
UN-PROGRAMME --> (COM.INFORMATIMAGO.RDP:SEQ (COM.INFORMATIMAGO.LSE::IDENT) ((LIST COM.INFORMATIMAGO.LSE::$1)))
(:LINE 0 :COLUMN 1 :STATE ...) 70529863)
(FUNCALL #<STANDARD-METHOD COM.INFORMATIMAGO.COMMON-LISP.PARSER.SCANNER:SCAN-NEXT-TOKEN (COM.INFORMATIMAGO.LSE::UN-PROGRAMME-SCANNER)> (COM.INFORMATIMAGO.LSE::UN-PROGRAMME-SCANNER :LINE 0 :COLUMN 1 ...) NIL)
(LSE-ADVANCE-LINE (COM.INFORMATIMAGO.LSE::UN-PROGRAMME-SCANNER :LINE 0 :COLUMN 1 ...))
(FUNCALL #<STANDARD-METHOD COM.INFORMATIMAGO.RDP:ADVANCE-LINE (COM.INFORMATIMAGO.LSE::UN-PROGRAMME-SCANNER)> (COM.INFORMATIMAGO.LSE::UN-PROGRAMME-SCANNER :LINE 0 :COLUMN 1 ...))
(PARSE-UN-PROGRAMME "1")
(FUNCALL #<STANDARD-METHOD COM.INFORMATIMAGO.LSE::COMMAND-CALL (COM.INFORMATIMAGO.LSE::COMMAND)> #S(COM.INFORMATIMAGO.LSE::COMMAND :INITIALS "AP" :NAME "APPELER" ...))
(COMMAND-EVAL-LINE #<COM.INFORMATIMAGO.LSE:TASK #x3020028918BD> "ap")
(FUNCALL (:INTERNAL COM.INFORMATIMAGO.LSE::DO-IT COM.INFORMATIMAGO.LSE:COMMAND-REPL))
(COMMAND-REPL #<COM.INFORMATIMAGO.LSE:TASK #x3020028918BD>)
(MAIN NIL)
(FUNCALL #<Anonymous Function #x3020028848DF>)
(FUNCALL (:INTERNAL CCL::%SAVE-APPLICATION-INTERNAL))
(FUNCALL (:INTERNAL CCL::MAKE-MCL-LISTENER-PROCESS))
(RUN-PROCESS-INITIAL-FORM #<PROCESS toplevel(9) [Active] #x30200288ADED> (#<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::MAKE-MCL-LISTENER-PROCESS) #x30200288A91F>))
(FUNCALL (:INTERNAL (CCL::%PROCESS-PRESET-INTERNAL (PROCESS))) #<PROCESS toplevel(9) [Active] #x30200288ADED> (#<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::MAKE-MCL-LISTENER-PROCESS) #x30200288A91F>))
(FUNCALL (:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION))
--------------------------------------------------------------------------------
Calling COM.INFORMATIMAGO.LSE:TERMINAL-FINALIZE on a COM.INFORMATIMAGO.LSE.UNIX-TERMINAL:UNIX-TERMINAL not initialized.
[pjb@larissa :0.0 src]$
```
**Imported comments:**
*By Pascal J. Bourguignon on 2015-04-03T09:25:40.803Z*
mentioned in issue #4https://framagit.org/nasium-lse/nasium-lse/-/issues/2300016 invalid option -> silent exit2018-04-03T03:36:57ZPascal J. Bourguignon00016 invalid option -> silent exit*Created by: Pascal J. Bourguignon*
```
./lse --mode-modern
```
exits silently instead of reporting an error.
*Created by: Pascal J. Bourguignon*
```
./lse --mode-modern
```
exits silently instead of reporting an error.
https://framagit.org/nasium-lse/nasium-lse/-/issues/2200045 message d'erreur pour tableaux2017-06-10T10:09:34ZPascal J. Bourguignon00045 message d'erreur pour tableaux*Created by: Pascal J. Bourguignon*
```
ERREUR EN LIGNE 100 : Array index 4 out of bounds for #2A((25.531916 12.765958
38.297874 23.404255) (0.0 0.0 0.0 0.0) (0.0 0.0 0.0 0.0) (0.0 0.0 0.0 0.0) (0.0
0.0 0.0 0.0) (0.0 0.0 0.0 0.0)) .
...*Created by: Pascal J. Bourguignon*
```
ERREUR EN LIGNE 100 : Array index 4 out of bounds for #2A((25.531916 12.765958
38.297874 23.404255) (0.0 0.0 0.0 0.0) (0.0 0.0 0.0 0.0) (0.0 0.0 0.0 0.0) (0.0
0.0 0.0 0.0) (0.0 0.0 0.0 0.0)) .
```
Devrait être: indexes (…) hors limite pour tableau: …
**Imported comments:**
*By Pascal J. Bourguignon on 2015-04-03T11:10:08.839Z*
Status changed to closed
*By Pascal J. Bourguignon on 2015-04-03T11:10:28.010Z*
```
B[10,2]_0
ERREUR : PREMIER INDEX 10 HORS LIMITE POUR LE TABLEAU A DEUX DIMENSIONS B[3,4]
PRET
B[2,44]_0
ERREUR : DEUXIEME INDEX 44 HORS LIMITE POUR LE TABLEAU A DEUX DIMENSION B[3,4]
PRET
```https://framagit.org/nasium-lse/nasium-lse/-/issues/2100044 ligne vide2018-04-03T03:36:57ZPascal J. Bourguignon00044 ligne vide*Created by: Pascal J. Bourguignon*
```
10 RET --> supprime la ligne 10
10 SPC RET --> insère la ligne 10 comme ligne vide.
10 SPC *comment --> 10 *comment
```*Created by: Pascal J. Bourguignon*
```
10 RET --> supprime la ligne 10
10 SPC RET --> insère la ligne 10 comme ligne vide.
10 SPC *comment --> 10 *comment
```https://framagit.org/nasium-lse/nasium-lse/-/issues/2000043 eqn .65 66. entre point2018-04-03T03:36:57ZPascal J. Bourguignon00043 eqn .65 66. entre point*Created by: Pascal J. Bourguignon*
```
#+lse_extension -
EQUIVALENT NUMERIQUE DE CARACTERE QUELCONQUES ENTRE POINTS :
.13. :CARACTERE (RC)
.13 10.'A B C'.13 10. : (RC) (LF) A B C (RC) (LF)
```
**Impo...*Created by: Pascal J. Bourguignon*
```
#+lse_extension -
EQUIVALENT NUMERIQUE DE CARACTERE QUELCONQUES ENTRE POINTS :
.13. :CARACTERE (RC)
.13 10.'A B C'.13 10. : (RC) (LF) A B C (RC) (LF)
```
**Imported comments:**
*By Pascal J. Bourguignon on 2015-04-03T09:29:55.274Z*
Added ~49654 labelhttps://framagit.org/nasium-lse/nasium-lse/-/issues/1900046 ajouter une option --convertir-minuscules-en-majuscules2018-04-03T03:36:57ZPascal J. Bourguignon00046 ajouter une option --convertir-minuscules-en-majuscules*Created by: Pascal J. Bourguignon*
À l'entrée, les minuscules devraient être converties en majuscules,
pour que CHAINE REP;LIRE REP;SI REP='OUI' ALORS AFFICHER 'OK"
affiche "OK" même si on tape "oui".
*Created by: Pascal J. Bourguignon*
À l'entrée, les minuscules devraient être converties en majuscules,
pour que CHAINE REP;LIRE REP;SI REP='OUI' ALORS AFFICHER 'OK"
affiche "OK" même si on tape "oui".
https://framagit.org/nasium-lse/nasium-lse/-/issues/1800048 FAIRE TANT QUE2018-04-03T03:36:57ZPascal J. Bourguignon00048 FAIRE TANT QUE*Created by: Pascal J. Bourguignon*
LIRE LSE 1979
Optionaliser la variable de boucle dans: FAIRE 42 TANT QUE A#0
**Imported comments:**
*By Pascal J. Bourguignon on 2015-04-03T09:29:38.667Z*
Added ~49654 label*Created by: Pascal J. Bourguignon*
LIRE LSE 1979
Optionaliser la variable de boucle dans: FAIRE 42 TANT QUE A#0
**Imported comments:**
*By Pascal J. Bourguignon on 2015-04-03T09:29:38.667Z*
Added ~49654 labelhttps://framagit.org/nasium-lse/nasium-lse/-/issues/1700047 implémenter les procédures externes2018-04-03T03:36:57ZPascal J. Bourguignon00047 implémenter les procédures externes*Created by: Pascal J. Bourguignon*
LIRE LSE 1979
Quand on appelle une procédure &ABCDE, si elle n'est pas présente dans
le programme, alors rechercher si on a un fichier programme nommé
ABCDE qui contient une telle PROCEDURE &ABCD...*Created by: Pascal J. Bourguignon*
LIRE LSE 1979
Quand on appelle une procédure &ABCDE, si elle n'est pas présente dans
le programme, alors rechercher si on a un fichier programme nommé
ABCDE qui contient une telle PROCEDURE &ABCDE. Dans ce cas, charger
temporairement ce fichier, exécuter la procédure, et revenir au
programme original.
Note: dans quel répertoire chercher les procédures? On peut chercher
dans le répertoire courant, ou on pourrait avoir un autre répertoire,
ou une variable contenant une liste de répertoires.
CHAINE EPDIR;EPDIR='/progr/mesgs/:/progr:/:.'
https://framagit.org/nasium-lse/nasium-lse/-/issues/1600042 xit(n) pas encore implementé2018-04-03T03:36:57ZPascal J. Bourguignon00042 xit(n) pas encore implementé*Created by: Pascal J. Bourguignon*
```
#+lse_extension -
```*Created by: Pascal J. Bourguignon*
```
#+lse_extension -
```https://framagit.org/nasium-lse/nasium-lse/-/issues/1500018 case of directories and files2018-04-03T03:36:57ZPascal J. Bourguignon00018 case of directories and files*Created by: Pascal J. Bourguignon*
For now, directories and files names are case sensitive.
This is confusing because users may be in uppercase input or mixed
input, and output may uppercase lowercase names.
For cli or unix scri...*Created by: Pascal J. Bourguignon*
For now, directories and files names are case sensitive.
This is confusing because users may be in uppercase input or mixed
input, and output may uppercase lowercase names.
For cli or unix scripts, we would want case sensitive (lower case) names.
For server and historic LSE, we would want to accept uppercase names.
--> either use uppercase for directory and file names in server files,
or implement case insensitivity.
https://framagit.org/nasium-lse/nasium-lse/-/issues/1400036 encoder/decoder/fsoup fails2018-04-03T03:36:57ZPascal J. Bourguignon00036 encoder/decoder/fsoup fails*Created by: Pascal J. Bourguignon*
```
CHANGER REPERTOIRE /inrdp
APPELER pp
DECODER pp
APPELER proc
DECODER proc
APPELER fsoup
EXECUTER A PARTIR DE 1
DONNEZ LE NOM DU FICHIER DECODE DU PROG. PRINCIPAL : pp
DONNEZ LE NOM DU F...*Created by: Pascal J. Bourguignon*
```
CHANGER REPERTOIRE /inrdp
APPELER pp
DECODER pp
APPELER proc
DECODER proc
APPELER fsoup
EXECUTER A PARTIR DE 1
DONNEZ LE NOM DU FICHIER DECODE DU PROG. PRINCIPAL : pp
DONNEZ LE NOM DU FICHIER DECODE DU SOUS-PROGRAMME : proc
ENCODEZ LE FICHIER PP
TERMINE EN LIGNE 015
EFFACER LIGNES *
ENCODER pp
li
ERREUR EN LIGNE 15 : THE VALUE NIL IS NOT OF THE EXPECTED TYPE CHARACTER.
PRET
```https://framagit.org/nasium-lse/nasium-lse/-/issues/1300024 lecture fin de ruban2018-04-03T03:36:57ZPascal J. Bourguignon00024 lecture fin de ruban*Created by: Pascal J. Bourguignon*
When reaching the end of the tape while reading commands (and perhaps
also inside a program):
```
ERROR: ERREUR INTERNE: VALEUR INATTENDUE DE (IO-READ-STRING CCL::BASIC-FILE-CHARACTER-INPUT-STREA...*Created by: Pascal J. Bourguignon*
When reaching the end of the tape while reading commands (and perhaps
also inside a program):
```
ERROR: ERREUR INTERNE: VALEUR INATTENDUE DE (IO-READ-STRING CCL::BASIC-FILE-CHARACTER-INPUT-STREAM): NIL of type NULL
--------------------------------------------------------------------------------
(BACKTRACE-AS-LIST :CONTEXT NIL :PROCESS NIL :ORIGIN NIL :COUNT 1152921504606846975 :START-FRAME-NUMBER 0 :PRINT-LEVEL 2 :PRINT-LENGTH 5 :SHOW-INTERNAL-FRAMES NIL)
(LSE-ERROR "ERREUR INTERNE: VALEUR INATTENDUE DE ~S: ~S of type ~S" (IO-READ-STRING CCL::BASIC-FILE-CHARACTER-INPUT-STREAM) NIL NULL)
(FUNCALL #<STANDARD-METHOD IO-READ-STRING (T)> #<TASK #x302003159CED> :ECHO T :BEEP NIL)
(%%CHECK-KEYWORDS #(1 #(:BEEP :ECHO) #<CCL:METHOD-FUNCTION IO-READ-STRING #>) 77142639)
(FUNCALL #<STANDARD-METHOD IO-READ-LINE (T)> #<TASK #x302003159CED> :ECHO T :BEEP NIL)
(%%CHECK-KEYWORDS #(1 #(:BEEP :ECHO) #<CCL:METHOD-FUNCTION IO-READ-LINE #>) 77142664)
(FUNCALL (:INTERNAL DO-IT COMMAND-REPL))
(COMMAND-REPL #<TASK #x302003159CED>)
(MAIN NIL)
(CALL-CHECK-REGS COM.INFORMATIMAGO.LSE.CLI:MAIN)
(CHEAP-EVAL (COM.INFORMATIMAGO.LSE.CLI:MAIN))
(EVAL-REGION "(in-package :com.informatimago.lse)
(com.informatimago.lse.cli:main)
")
(FUNCALL (:INTERNAL SWANK::REPL-EVAL))
(TRACK-PACKAGE #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-EVAL) #x30200315A3DF>)
(FUNCALL (:INTERNAL SWANK::REPL-EVAL))
(CALL-WITH-RETRY-RESTART "Retry SLIME REPL evaluation request." #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-EVAL) #x30200315A46F>)
(FUNCALL (:INTERNAL SWANK::REPL-EVAL))
(FUNCALL #<Anonymous Function #x30200182569F> #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-EVAL) #x30200315A4AF>)
(CALL-WITH-SYNTAX-HOOKS #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-EVAL) #x30200315A4AF>)
(CALL-WITH-BUFFER-SYNTAX NIL #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-EVAL) #x30200315A4AF>)
(REPL-EVAL "(in-package :com.informatimago.lse)
(com.informatimago.lse.cli:main)
")
(LISTENER-EVAL
"(in-package :com.informatimago.lse)
(com.informatimago.lse.cli:main)
"
:WINDOW-WIDTH
NIL)
(CALL-CHECK-REGS
SWANK:LISTENER-EVAL
"(in-package :com.informatimago.lse)
(com.informatimago.lse.cli:main)
")
(CHEAP-EVAL (SWANK:LISTENER-EVAL
"(in-package :com.informatimago.lse)
(com.informatimago.lse.cli:main)
"))
(EVAL-FOR-EMACS
(SWANK:LISTENER-EVAL
"(in-package :com.informatimago.lse)
(com.informatimago.lse.cli:main)
")
"COM.INFORMATIMAGO.LSE"
13)
(PROCESS-REQUESTS NIL)
(FUNCALL (:INTERNAL SWANK::HANDLE-REQUESTS))
(FUNCALL (:INTERNAL SWANK::HANDLE-REQUESTS))
(FUNCALL SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x3020019AB05F> #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::HANDLE-REQUESTS) #x302001B71EDF>)
(CALL-WITH-DEBUGGER-HOOK #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x3020019AB05F> #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::HANDLE-REQUESTS) #x302001B71EDF>)
(FUNCALL (:INTERNAL SWANK::HANDLE-REQUESTS))
(CALL-WITH-BINDINGS
((*STANDARD-OUTPUT* . #) (*STANDARD-INPUT* . #) (*TRACE-OUTPUT* . #) (*ERROR-OUTPUT* . #) (*DEBUG-IO* . #<TWO-WAY-STREAM input #, output # #x302001B68EBD>) ...)
#<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::HANDLE-REQUESTS) #x302001B71E8F>)
(HANDLE-REQUESTS #<MULTITHREADED-CONNECTION #x302001A1CBED> NIL)
(REPL-LOOP #<MULTITHREADED-CONNECTION #x302001A1CBED>)
(FUNCALL (:INTERNAL SWANK::SPAWN-REPL-THREAD))
(CALL-WITH-BINDINGS
((*PRINT-PRETTY*) (*PRINT-LEVEL*) (*PRINT-LENGTH*) (*PRINT-CIRCLE* . T) (*PRINT-CASE* . :DOWNCASE) ...)
#<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::SPAWN-REPL-THREAD) #x302001B7222F>)
(FUNCALL (:INTERNAL SWANK::SPAWN-REPL-THREAD))
(RUN-PROCESS-INITIAL-FORM #<PROCESS repl-thread(14) [Active] #x302001B6015D> (#<CCL:COMPILED-LEXICAL-CLOSURE # #x302001B5FEEF>))
(FUNCALL (:INTERNAL (CCL::%PROCESS-PRESET-INTERNAL (CCL:PROCESS))) #<PROCESS repl-thread(14) [Active] #x302001B6015D> (#<CCL:COMPILED-LEXICAL-CLOSURE # #x302001B5FEEF>))
(FUNCALL (:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION))
--------------------------------------------------------------------------------
ERREUR: ERREUR INTERNE: VALEUR INATTENDUE DE (IO-READ-STRING CCL::BASIC-FILE-CHARACTER-INPUT-STREAM): NIL of type NULL
--------------------------------------------------------------------------------
(BACKTRACE-AS-LIST :CONTEXT NIL :PROCESS NIL :ORIGIN NIL :COUNT 1152921504606846975 :START-FRAME-NUMBER 0 :PRINT-LEVEL 2 :PRINT-LENGTH 5 :SHOW-INTERNAL-FRAMES NIL)
(LSE-ERROR "ERREUR INTERNE: VALEUR INATTENDUE DE ~S: ~S of type ~S" (IO-READ-STRING CCL::BASIC-FILE-CHARACTER-INPUT-STREAM) NIL NULL)
(FUNCALL #<STANDARD-METHOD IO-READ-STRING (T)> #<TASK #x302003159CED> :ECHO T :BEEP NIL)
(%%CHECK-KEYWORDS #(1 #(:BEEP :ECHO) #<CCL:METHOD-FUNCTION IO-READ-STRING #>) 77142639)
(FUNCALL #<STANDARD-METHOD IO-READ-LINE (T)> #<TASK #x302003159CED> :ECHO T :BEEP NIL)
(%%CHECK-KEYWORDS #(1 #(:BEEP :ECHO) #<CCL:METHOD-FUNCTION IO-READ-LINE #>) 77142664)
(FUNCALL (:INTERNAL DO-IT COMMAND-REPL))
(COMMAND-REPL #<TASK #x302003159CED>)
(MAIN NIL)
(CALL-CHECK-REGS COM.INFORMATIMAGO.LSE.CLI:MAIN)
(CHEAP-EVAL (COM.INFORMATIMAGO.LSE.CLI:MAIN))
(EVAL-REGION "(in-package :com.informatimago.lse)
(com.informatimago.lse.cli:main)
")
(FUNCALL (:INTERNAL SWANK::REPL-EVAL))
(TRACK-PACKAGE #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-EVAL) #x30200315A3DF>)
(FUNCALL (:INTERNAL SWANK::REPL-EVAL))
(CALL-WITH-RETRY-RESTART "Retry SLIME REPL evaluation request." #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-EVAL) #x30200315A46F>)
(FUNCALL (:INTERNAL SWANK::REPL-EVAL))
(FUNCALL #<Anonymous Function #x30200182569F> #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-EVAL) #x30200315A4AF>)
(CALL-WITH-SYNTAX-HOOKS #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-EVAL) #x30200315A4AF>)
(CALL-WITH-BUFFER-SYNTAX NIL #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-EVAL) #x30200315A4AF>)
(REPL-EVAL "(in-package :com.informatimago.lse)
(com.informatimago.lse.cli:main)
")
(LISTENER-EVAL
"(in-package :com.informatimago.lse)
(com.informatimago.lse.cli:main)
"
:WINDOW-WIDTH
NIL)
(CALL-CHECK-REGS
SWANK:LISTENER-EVAL
"(in-package :com.informatimago.lse)
(com.informatimago.lse.cli:main)
")
(CHEAP-EVAL (SWANK:LISTENER-EVAL
"(in-package :com.informatimago.lse)
(com.informatimago.lse.cli:main)
"))
(EVAL-FOR-EMACS
(SWANK:LISTENER-EVAL
"(in-package :com.informatimago.lse)
(com.informatimago.lse.cli:main)
")
"COM.INFORMATIMAGO.LSE"
13)
(PROCESS-REQUESTS NIL)
(FUNCALL (:INTERNAL SWANK::HANDLE-REQUESTS))
(FUNCALL (:INTERNAL SWANK::HANDLE-REQUESTS))
(FUNCALL SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x3020019AB05F> #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::HANDLE-REQUESTS) #x302001B71EDF>)
(CALL-WITH-DEBUGGER-HOOK #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x3020019AB05F> #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::HANDLE-REQUESTS) #x302001B71EDF>)
(FUNCALL (:INTERNAL SWANK::HANDLE-REQUESTS))
(CALL-WITH-BINDINGS
((*STANDARD-OUTPUT* . #) (*STANDARD-INPUT* . #) (*TRACE-OUTPUT* . #) (*ERROR-OUTPUT* . #) (*DEBUG-IO* . #<TWO-WAY-STREAM input #, output # #x302001B68EBD>) ...)
#<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::HANDLE-REQUESTS) #x302001B71E8F>)
(HANDLE-REQUESTS #<MULTITHREADED-CONNECTION #x302001A1CBED> NIL)
(REPL-LOOP #<MULTITHREADED-CONNECTION #x302001A1CBED>)
(FUNCALL (:INTERNAL SWANK::SPAWN-REPL-THREAD))
(CALL-WITH-BINDINGS
((*PRINT-PRETTY*) (*PRINT-LEVEL*) (*PRINT-LENGTH*) (*PRINT-CIRCLE* . T) (*PRINT-CASE* . :DOWNCASE) ...)
#<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::SPAWN-REPL-THREAD) #x302001B7222F>)
(FUNCALL (:INTERNAL SWANK::SPAWN-REPL-THREAD))
(RUN-PROCESS-INITIAL-FORM #<PROCESS repl-thread(14) [Active] #x302001B6015D> (#<CCL:COMPILED-LEXICAL-CLOSURE # #x302001B5FEEF>))
(FUNCALL (:INTERNAL (CCL::%PROCESS-PRESET-INTERNAL (CCL:PROCESS))) #<PROCESS repl-thread(14) [Active] #x302001B6015D> (#<CCL:COMPILED-LEXICAL-CLOSURE # #x302001B5FEEF>))
(FUNCALL (:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION))
--------------------------------------------------------------------------------
ERREUR EN LIGNE 19 : ERREUR INTERNE: VALEUR INATTENDUE DE (IO-READ-STRING
CCL::BASIC-FILE-CHARACTER-INPUT-STREAM): NIL of type NULL
PRET
```
https://framagit.org/nasium-lse/nasium-lse/-/issues/1200008 inetd server displays wrong bindings2018-04-03T03:36:57ZPascal J. Bourguignon00008 inetd server displays wrong bindings*Created by: Pascal J. Bourguignon*
cf. inetd/lse.sh
The binding displayed show CONTROLE-S, but this isn't taken into
account and we have to type RETURN instead.
Both should be accepted, and [ENTREE] (RETURN) should be displayed...*Created by: Pascal J. Bourguignon*
cf. inetd/lse.sh
The binding displayed show CONTROLE-S, but this isn't taken into
account and we have to type RETURN instead.
Both should be accepted, and [ENTREE] (RETURN) should be displayed as
binding, since we use the telnet line mode.
```
[pjb@kuiper :0.0 src]$ telnet nasium-lse.ogamita.com 8115
Trying 88.198.62.69...
Connected to voyager.informatimago.com.
Escape character is '^]'.
[CONTROLE-S] POUR ENTRER LES DONNEES.
[EFFACEMENT] POUR EFFACER LE CARACTERE PRECEDENT.
[ECHAPEMENT] POUR INTERROMPRE.
[CONTROLE-A] POUR ENVOYER LE SIGNAL D'ATTENTION (FONCTION ATT()).
[ENTREE] POUR ENTRER LES DONNEES, MAIS AJOUTE LE CODE RETOUR AUX CHAINES.
------------------------------------------------------------------------
\ OOO OOOOOOOOOO OOOOOOOOOO \
\ OOO OOOOOOOOOOOO OOOOOOOOOO OOOOOOOOOOO \
\ OOO OOOO OOO OOO \
\ OOO OOOO OOOOOO O OO \
> OOO OOOO OOOOOO OOO O O >
/......................................................................./
/ OOO OOO OOOO OOO OOOO OO OO /
/ OOOOOOOOOO OOO OOOOOOOOOOOO OOO OOOOOOOOOO OOO OOOO OO OO /
/ OOOOOOOOOO OOO OOOOOOOOOO OOO OOOOOOOOOO OOO O OOOO OO /
------------------------------------------------------------------------
NASIUM L.S.E.
LANGAGE SYMBOLIQUE D'ENSEIGNEMENT
VERSION 1.0.0-0.999956-CCL-LINUX
COPYRIGHT 1984 - 2014 PASCAL BOURGUIGNON
DISTRIBUE SELON LES TERMES DE LA LICENCE AGPLV3.
CE PROGRAMME EST LIVRE AVEC ABSOLUMENT AUCUNE GARANTIE; POUR PLUS DE
DETAILS UTILISEZ LA COMMANDE DO GARANTIE. CE LOGICIEL EST LIBRE, ET
VOUS AVEZ LE DROIT DE LE REDISTRIBUER SOUS CERTAINES CONDITIONS;
TAPER [CONTROLE-S] POUR CONTINUER:
UTILISEZ LA COMMANDE DO LICENSE POUR PLUS DE DETAILS.
TAPEZ AI POUR AVOIR DE L'AIDE.
BONJOUR 09:48:50
PRET
```https://framagit.org/nasium-lse/nasium-lse/-/issues/1100006 The PRET message is eaten (displays only RET) when ESC2018-04-03T03:36:57ZPascal J. Bourguignon00006 The PRET message is eaten (displays only RET) when ESC*Created by: Pascal J. Bourguignon*
This is probably due to some echoing of ESC.
Occurs on xterm on MacOSX with emulse
Doesn't occur in MacOSX Terminal.app or Cathode.app with terminal.env
*Created by: Pascal J. Bourguignon*
This is probably due to some echoing of ESC.
Occurs on xterm on MacOSX with emulse
Doesn't occur in MacOSX Terminal.app or Cathode.app with terminal.env
https://framagit.org/nasium-lse/nasium-lse/-/issues/1000009 Message PRET EN LIGNE 004 when interrupting a program.2018-04-03T03:36:57ZPascal J. Bourguignon00009 Message PRET EN LIGNE 004 when interrupting a program.*Created by: Pascal J. Bourguignon*
The message when interrupting a program (at least on T1600)
should indicate the line number:
```
PRET EN LIGNE 004
```
instead of just:
```
PRET
```
*Created by: Pascal J. Bourguignon*
The message when interrupting a program (at least on T1600)
should indicate the line number:
```
PRET EN LIGNE 004
```
instead of just:
```
PRET
```
https://framagit.org/nasium-lse/nasium-lse/-/issues/900011 A single beep per LIRE statement, instead of per variable.2018-04-03T03:36:57ZPascal J. Bourguignon00011 A single beep per LIRE statement, instead of per variable.*Created by: Pascal J. Bourguignon*
*Created by: Pascal J. Bourguignon*
https://framagit.org/nasium-lse/nasium-lse/-/issues/800035 ERREUR après TERMINER2018-04-03T03:36:57ZPascal J. Bourguignon00035 ERREUR après TERMINER*Created by: Pascal J. Bourguignon*
Les erreurs survenant après terminer ne devraient pas donner le numéro de ligne:
```
TERMINE EN LIGNE 019
ERREUR EN LIGNE 19 : The value NIL is not of the expected type CHARACTER.
```*Created by: Pascal J. Bourguignon*
Les erreurs survenant après terminer ne devraient pas donner le numéro de ligne:
```
TERMINE EN LIGNE 019
ERREUR EN LIGNE 19 : The value NIL is not of the expected type CHARACTER.
```https://framagit.org/nasium-lse/nasium-lse/-/issues/700004 restore the terminal on restarts2018-04-03T03:36:57ZPascal J. Bourguignon00004 restore the terminal on restarts*Created by: Pascal J. Bourguignon*
The *debugger-hook* resets the terminal for the debugger.
When we use a restart to continue into LSE, we should reconfigure the LSE terminal.
*Created by: Pascal J. Bourguignon*
The *debugger-hook* resets the terminal for the debugger.
When we use a restart to continue into LSE, we should reconfigure the LSE terminal.