jaredj/glotawk - Change TR7MDG2JZKE2XJTMGJQT3W4JTYNYPSDEZN5G4D464WCWCMVA75NQC

add symbolp, consp, stringp, defun macro

Created by jaredj on August 29, 2025

TR7MDG2JZKE2XJTMGJQT3W4JTYNYPSDEZN5G4D464WCWCMVA75NQC

Dependencies

In channels

main

Change contents

Insertion in sane_lisp at line 200 [6.900]

[4.64]

[5.951]

lisp_eval_should_be '(let ((foo '\''bar) (baz 3)) (list (symbolp '\''a) (symbolp foo) (symbolp 3) (symbolp baz) (symbolp "baz")))' '(true true false false false)' 'symbolp'

Insertion in lib.glotawk at line 95 [3.36]

[3.3841]

(macro defun (lambda (args)
               `(setq ,(car args) (lambda ,(cadr args)
                                   ,@(cddr args)))))

Insertion in first-symbols.awk at line 49 [7.17737]

[7.18677]

    _symbol("symbolp")
    _symbol("consp")
    _symbol("stringp")

Insertion in eval.awk at line 326 [6.11057]

[2.42]

[7.22428]

    else if(car == _symbol("symbolp"))
        return _lispify_bool(_TYPE[_eval3(_cadr(form), env, env, d+1)] == "'")
    else if(car == _symbol("consp"))
        return _lispify_bool(_TYPE[_eval3(_cadr(form), env, env, d+1)] == "(")
    else if(car == _symbol("stringp"))
        return _lispify_bool(_TYPE[_eval3(_cadr(form), env, env, d+1)] == "s")

Insertion in data.awk at line 13 [6.16500]

[6.16581]

# if you change the way any of these are stored, see and change
# symbolp, consp, stringp