[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Trying to yank from typeout window



                         (2 0 (NIL 0) (:FIX :ROMAN :NORMAL) "CPTFONT")
                         (3 0 (NIL 0) (NIL :ITALIC NIL) "CPTFONTI")
Fonts: CPTFONT, CPTFONTCB, CPTFONT, CPTFONTI

    Date: Wed, 13 May 87 05:11 EDT
    From: John C. Mallery <JCMA@AI.AI.MIT.EDU>

    In Symbolics 3640 Zwei in Genera 7.1, IP-TCP 52.16, ILA-NFS 3.1,

This is a bug that is triggered when you try to mark a line that has
wrapped around on the dynamic window in question.  It is fixed in the
development system, and will be fixed in 7.2.  Thanks for the report.

    1Trap: The first argument given to the SYS:INTERNAL-< instruction, NIL, was not a number.
0    While in the function (:INTERNAL DW::CLICK-AND-HOLD-MARK-REGION 5 #:G25122)  DW::TRACKING-MOUSE-INTERNAL  DW::CLICK-AND-HOLD-MARK-REGION

    The condition signalled was DBG:WRONG-TYPE-ARGUMENT-TRAP

    1(:INTERNAL DW::CLICK-AND-HOLD-MARK-REGION 5 #:G25122)0:  (P.C. = 312)
       Arg 0 (COMPILER:.LEXICAL-ENVIRONMENT-POINTER.): #<DTP-LOCATIVE 52701373>
       Arg 1 (DW:PRESENTATION): #<TEXT-DISPLAYED-PRESENTATION 344235717>
       Local 2: NIL
       Local 3: NIL
       Local 4: #<DTP-LOCATIVE 52701467>
       Local 5: #<DTP-COMPILED-FUNCTION (:INTERNAL (:INTERNAL DW::CLICK-AND-HOLD-MARK-REGION 5 #:G25122) 0 DW::INCLUDE-P) 147340275>
       Local 6: #<DTP-LOCATIVE 52701467>
       Local 7: #<DTP-COMPILED-FUNCTION (:INTERNAL (:INTERNAL DW::CLICK-AND-HOLD-MARK-REGION 5 #:G25122) 1 DW::SAME-RIGHT-P) 147340255>
       Local 8: #<DTP-LOCATIVE 52701467>
       Local 9: #<DTP-COMPILED-FUNCTION (:INTERNAL (:INTERNAL DW::CLICK-AND-HOLD-MARK-REGION 5 #:G25122) 2 DW::SAME-RIGHT-P) 147340235>
       Local 10: #<DTP-LOCATIVE 52701467>
       Local 11: #<DTP-COMPILED-FUNCTION (:INTERNAL (:INTERNAL DW::CLICK-AND-HOLD-MARK-REGION 5 #:G25122) 3 DW::INCLUDE-P) 147340215>
       Local 12 (DW::END-X0): 344
       Local 13 (DW::END-Y0): 11508
       Local 14 (DW::END-X): 352
       Local 15 (DW::END-Y): 11522
       Local 16 (DW::END-DSTRING): #<DISPLAYED-STRING "                                                          NIL))" 17440660>
       Local 17 (DW::END-INDEX): 43
       Local 18: ((#<DISPLAYED-STRING "(PROGN (%RELATUS-DEFINE-ITEM-COMPATIBLE-PRESENTATION-TYPE 'NODE" 17436646> 0 63))
       Local 19 (DW::I): 838
       Local 20 (DW::START): 836
       Local 21 (DW::END): NIL
       Local 22 (DW::.INCLUDE-P-FUNCTION-CELL.): #<LEXICAL-CLOSURE (:INTERNAL ** 3 DW::INCLUDE-P) 52701501>
       Lexical 0 (DW::WINDOW): #<EDITOR-TYPEOUT-WINDOW Editor Typeout Window 3 1506637 exposed>
       Lexical 1 (DW::LAST-REGION-STRINGS): ((#<DISPLAYED-STRING "(PROGN (%RELATUS-DEFINE-ITEM-COMPATIBLE-PRESENTATION-TYPE 'NODE" 17436646> 0 63) (#<DISPLAYED-STRING "                                                          'MOUSE-LEFT-DESCRIBE-NODE-FOR-MOUSE-S" 17436676> 0 95) (#<DISPLAYED-STRING "ENSITIVE-WINDOW" 17436736> 0 15) (#<DISPLAYED-STRING "                                                          /"L1:Describe Node, L2:2Extended 0Node M" 17436752> 0 95) (#<DISPLAYED-STRING "enu, M1:Remember, M2:Recall, R1:Menu. R2:System Menu/"" 17437142> 0 53) (#<DISPLAYED-STRING "                                                          'MS-REMEMBER-NODE-FOR-MSW" 17437246> 0 83) (#<DISPLAYED-STRING "                                                          '((/"Describe Node/" :VALUE" 17437303> 0 83) (#<DISPLAYED-STRING "                                                             MS-DESCRIBE-NODE :DOCUMENTATION" 17437340> 0 92) (#<DISPLAYED-STRING "                                                             /"Describe Node./"))" 17437377> 0 79) (#<DISPLAYED-STRING "                                                          'MS-CHOOSE-NODE-FROM-RECALL-HISTORY-F" 17437433> 0 95) ...)
       Lexical 2 (DW::DSTRINGS): #<DISPLAYED-STRINGS-ARRAY 120425162>
       Lexical 3 (DW::START-DSTRINGS-INDEX): 837
       Lexical 4 (DW::START-Y): 11088
       Lexical 5 (DW::START-X): 8
       Lexical 6 (DW::.POSITION-LESSP-FUNCTION-CELL.): #<DTP-COMPILED-FUNCTION (:INTERNAL DW::CLICK-AND-HOLD-MARK-REGION 3 DW::POSITION-LESSP) 147337666>
       Lexical 7 (DW::REGION-STRINGS): ((#<DISPLAYED-STRING "(PROGN (%RELATUS-DEFINE-ITEM-COMPATIBLE-PRESENTATION-TYPE 'NODE" 17436646> 0 63) (#<DISPLAYED-STRING "                                                          'MOUSE-LEFT-DESCRIBE-NODE-FOR-MOUSE-S" 17436676> 0 95) (#<DISPLAYED-STRING "ENSITIVE-WINDOW" 17436736> 0 15) (#<DISPLAYED-STRING "                                                          /"L1:Describe Node, L2:2Extended 0Node M" 17436752> 0 95) (#<DISPLAYED-STRING "enu, M1:Remember, M2:Recall, R1:Menu. R2:System Menu/"" 17437142> 0 53) (#<DISPLAYED-STRING "                                                          'MS-REMEMBER-NODE-FOR-MSW" 17437246> 0 83) (#<DISPLAYED-STRING "                                                          '((/"Describe Node/" :VALUE" 17437303> 0 83) (#<DISPLAYED-STRING "                                                             MS-DESCRIBE-NODE :DOCUMENTATION" 17437340> 0 92) (#<DISPLAYED-STRING "                                                             /"Describe Node./"))" 17437377> 0 79) (#<DISPLAYED-STRING "                                                          'MS-CHOOSE-NODE-FROM-RECALL-HISTORY-F" 17437433> 0 95) ...)
       Lexical 8 (DW::START-INDEX): 0
       Lexical 9 (DW::START-DSTRING): #<DISPLAYED-STRING "(PROGN (%RELATUS-DEFINE-ITEM-COMPATIBLE-PRESENTATION-TYPE 'NODE" 17436646>

    1DW::TRACKING-MOUSE-INTERNAL0:  (P.C. = 130)  3(from SYS:PATCH;SYSTEM-349-25)
0       Arg 0 (CL:STREAM): #<EDITOR-TYPEOUT-WINDOW Editor Typeout Window 3 1506637 exposed>
       Arg 1 (DW::COROUTINES): #<LEXICAL-CLOSURE (:INTERNAL DW::CLICK-AND-HOLD-MARK-REGION 6) 52701405>
       Rest arg: (:WHO-LINE-DOCUMENTATION-STRING "Mark region while button is held down.")

    1DW::CLICK-AND-HOLD-MARK-REGION0:  (P.C. = 57)  3(from SYS:PATCH;SYSTEM-349-46)
0       Arg 0 (DW::WINDOW): #<EDITOR-TYPEOUT-WINDOW Editor Typeout Window 3 1506637 exposed>
       Arg 1 (DW::START-DSTRING): #<DISPLAYED-STRING "(PROGN (%RELATUS-DEFINE-ITEM-COMPATIBLE-PRESENTATION-TYPE 'NODE" 17436646>
       Arg 2 (DW::START-INDEX): 0
       Arg 3 (DW::START-X): 8
       Arg 4 (DW::START-Y): 11088

    [...etc...]