⍝ SaveLoad
⍝ ----------------------------------

      )CLEAR
CLEAR WS

      +
VALENCE ERROR+
      +
      ^

      )DROP save_load_SI.xml
³

      )SAVE save_load_SI
20⁰-⁰-⁰  ⁰:⁰:⁰ (GMT⁵⁰) 

      )LOAD save_load_SI.xml
SAVED 20⁰-⁰-⁰ ⁰:⁰:⁰ (GMT⁵⁰)

      )SI
⋆

      )SIC

      ⍝ regression tests
      ⍝
      )CLEAR
CLEAR WS

      )DROP test.xml
³

      )WSID test
WAS CLEAR WS

      cmp_a←{{⍵[⍋⍵]} (∨/[1] ⍺∘.= ⍵) / ⍵}
      cmp_b←{{⍵[⍋⍵]} (∨⌿ ⍺∘.= ⍵) / ⍵}

      )save
20⁰-⁰-⁰  ⁰:⁰:⁰ (GMT⁵⁰)  test

      )load test.xml
SAVED 20⁰-⁰-⁰ ⁰:⁰:⁰ (GMT⁵⁰)

      )save
20⁰-⁰-⁰  ⁰:⁰:⁰ (GMT⁵⁰)  test

      ⎕CR 'cmp_a'
λ←⍺ λ0 ⍵                    
λ←{⍵[⍋⍵]} (∨/[1] ⍺∘.= ⍵) / ⍵

      ⎕CR 'cmp_b'
λ←⍺ λ0 ⍵                 
λ←{⍵[⍋⍵]} (∨⌿ ⍺∘.= ⍵) / ⍵


      )CLEAR
CLEAR WS

      )DROP test.xml
³

      )WSID test
WAS CLEAR WS

      'lib_template_F0' ⎕FX 'TEST0'
TEST0

      )SAVE
20⁰-⁰-⁰  ⁰:⁰:⁰ (GMT⁵⁰)  test

      )LOAD test.xml
SAVED 20⁰-⁰-⁰ ⁰:⁰:⁰ (GMT⁵⁰)

      )DROP test.xml
³

⍝ Davd Alden 8. Nov. 2025 bugapl@gnu.org

      )CLEAR
CLEAR WS

      ⍝ Note that { ... } notation does not allow s this

      ⎕FX'λ←Test ⍵ ;C;D ⍝⍝ π times Ʃ⍵' 'λ←○+/⍵'
DEFN ERROR+
      ⎕FX 'λ←Test ⍵ ;C;D ⍝⍝ π times Ʃ⍵' 'λ←○+/⍵'
      ^

      )MORE
Attempt (of ⎕FX) to create or edit a lambda. Use { ... } instead.

      ⍝ Test was created despite of the DEFN ERROR
      ⍝
      ⎕CR 'Test'
λ←Test ⍵ ;C;D ⍝⍝ π times Ʃ⍵
λ←○+/⍵                     

      )DROP test.xml
³
      )SAVE test
³

      )SIC   ⍝⍝ due to DEFN ERROR

      )LOAD test.xml
³

      ⎕CR 'Test'
λ←λ0 ⍵;C;D          
λ←○+/⍵ ⍝⍝ π times Ʃ⍵

      ⎕EX 'Test'
1

      )CHECK BRIEF

⍝ ==================================

