Open Hub
Black Duck Open Hub

 Settings |  Report Duplicate

1
I Use This!
Inactive

Commits : Listings

Analyzed 1 day ago. based on code collected 1 day ago.
May 13, 2023 — May 13, 2024
Commit Message Contributor Files Modified Lines Added Lines Removed Code Location Date
getting package back
Douglas R. Miles
as root
More... over 6 years ago
printing to better places
Douglas R. Miles
as root
More... over 6 years ago
truename
Douglas R. Miles
as root
More... over 6 years ago
fixed a hythen problem
Douglas R. Miles
as root
More... over 6 years ago
type-of function
Douglas R. Miles
as root
More... over 6 years ago
fied spelling error package_internal_symbol
Douglas R. Miles
as root
More... over 6 years ago
shadowing
Douglas R. Miles
as root
More... over 6 years ago
fixed the let problem
Douglas R. Miles
as root
More... over 6 years ago
let bodies are workign again
Douglas R. Miles
as root
More... over 6 years ago
small improvements.. fixed cons
Douglas R. Miles
as root
More... over 6 years ago
start of rw counting
Douglas R. Miles
as root
More... over 6 years ago
+ + + + + + + +USER> + (let (val) + (tagbody + (setq val 1) + (go point-a) + (incf val 16) + point-c + (incf val 04) + (go point-b) + (incf val 32) + point-a + point-u ;; unused + (incf val 02) + (go point-c) + (incf val 64) + point-b + (incf val 08)) + val)) + + +#| + +:- lisp_compile( pkg_user, + [ let, + [u_val], + + [ tagbody, + [setq, u_val, 1], + [go, u_point_a], + [incf, u_val, 16], + u_point_c, + [incf, u_val, 4], + [go, u_point_b], + [incf, u_val, 32], + u_point_a, + u_point_u, + [incf, u_val, 2], + [go, u_point_c], + [incf, u_val, 64], + u_point_b, + [incf, u_val, 8] + ], + u_val + ]). + + + addr_tagbody_1_addr_enter_1(ENV) :- + symbol_setter(ENV, setq, u_val, 1), + addr_tagbody_1_u_point_a(ENV). + + addr_tagbody_1_u_point_c(ENV) :- + place_op(ENV, incf, u_val, [4], _Incf_R), + addr_tagbody_1_u_point_b(ENV). + + addr_tagbody_1_u_point_a(ENV) :- + push_label(u_point_u, addr_tagbody_1, []), + place_op(ENV, incf, u_val, [2], _Incf_R5), + addr_tagbody_1_u_point_c(ENV). + + addr_tagbody_1_u_point_u(ENV) :- + place_op(ENV, incf, u_val, [2], _Incf_R8), + addr_tagbody_1_u_point_c(ENV). + + addr_tagbody_1_u_point_b(ENV) :- + place_op(ENV, incf, u_val, [8], _Incf_R3). + + + :- TOPEnv=[[bv(u_val, [[]|_1330])]|toplevel], + addr_tagbody_1_addr_enter_1(TOPEnv), + symbol_value(TOPEnv, u_val, U_val_Get). + +|# +15 +> +
Douglas R. Miles
as root
More... over 6 years ago
no longer using throw to exit a tagbody!
Douglas R. Miles
as root
More... over 6 years ago
no longer using throw to exit a tagbody!
Douglas R. Miles
as root
More... over 6 years ago
separate block and tagbody code
Douglas R. Miles
as root
More... over 6 years ago
separate block and tagbody code
Douglas R. Miles
as root
More... over 6 years ago
files/ignore
Douglas R. Miles
as root
More... over 6 years ago
newer emacs-cl
Douglas R. Miles
as root
More... over 6 years ago
Yes trying out emacs-cl as a source of extras
Douglas R. Miles
as root
More... over 6 years ago
ci.prop
Douglas R. Miles
as root
More... over 6 years ago
reorg
Douglas R. Miles
as root
More... over 6 years ago
fixed constantp
Douglas R. Miles
as root
More... over 6 years ago
improved symbol printing
Douglas R. Miles
as root
More... over 6 years ago
same_symbols
Douglas R. Miles
as root
More... over 6 years ago
block_tagbody.notes.md
Douglas R. Miles
as root
More... over 6 years ago
TAGBODY STILL WORKING
Douglas R. Miles
as root
More... over 6 years ago
TAGBODY WORKING
Douglas R. Miles
as root
More... over 6 years ago
spent a couple minutes on this
Douglas R. Miles
as root
More... over 6 years ago
new si.pro
Douglas R. Miles
as root
More... over 6 years ago
dispatch
Douglas R. Miles
as root
More... over 6 years ago